составить из типизированного файла линейный массив

program file_mas;
 uses crt;
 var F:file of integer;
     A:array[1..100] of integer;
     i,x,n:integer;
 begin
  clrscr;
  assign(F,'file');   {указать файл, в котором находятся числа}
  rewrite(F);
  n:=0;
  
  while not eof(F) do
   begin
    seek(F,n);
    read(F,x);
    A[i]:=x;              {четные компоненты файла по номеру}
    i:=i+1;
    n:=n+2;
   end;
   
  while not eof(F) do
   begin
    seek(F,n);
    read(F,x);
    If (x mod 2)=0 then
     begin
      A[i]:=x;              {четные компоненты по значению}
      i:=i+1;
     end;
    n:=n+1;
   end;
   
  writeln('Массив');
  For i:=1 to i do
   begin                    {вывод массива}
    write('',A[i]:4);
   end;
  readln;
 end.

  writeln('Ìàññèâ');
  For i:=1 to i do
   begin                    {âûâîä ìàññèâà}
    write('',A[i]:4);
   end;
  readln;
  close(F);
 end.

Var
 i:integer;
 a:array[1..100] of integer;
 f:file of integer;
begin
Assign(f,'D:\zoe4ka.txt');
reset(f);
for i:=0 to (filesize(f)-1) div 2 do
begin
 seek(f,i*2);
 read(f,a[i*2 div 2+1]);
 write('  ',a[i*2 div 2+1],'  ');
end;
Close(f);
end.