* fix casing of "VAr", no code changes

git-svn-id: trunk@48862 -

rtl/objpas/sysutils/fina.inc

@@ -381,7 +381,7 @@ end;
 
 Procedure DoDirSeparators (Var FileName : PathStr); {$ifdef FPC_HAS_CPSTRING}rtlproc;{$endif}
 
-VAr I : longint;
+Var I : longint;
 
 begin
   For I:=1 to Length(FileName) do