Создать файл abcd.dat, содержащий элементы типа integer. Из компонентов данного файла сформировать массивы четных и нечетных чисел — Pascal(Паскаль)

uses crt;
const nmax=100;
var f:file of integer;
    a,i,n1,n2:integer;
    m1,m2:array[1..nmax] of integer;
begin
clrscr;
assign(f,'abcd.dat');
rewrite(f);
writeln('Введите в файл не более ',nmax,' целых чисел, окончание ввода 0:');
i:=0;
repeat
readln(a);
if a<>0 then
 begin
  i:=i+1;
  write(f,a);
 end;
until (a=0)or(i=100);
writeln('Содержание исходного файла:');
reset(f);
n1:=0;n2:=0;
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
  if odd(a) then
    begin
     n2:=n2+1;
     m2[n2]:=a;
    end
  else
   begin
     n1:=n1+1;
     m1[n1]:=a;
    end
  end;
close(f);
writeln;
if n1=0 then writeln('Четных чисел нет!')
else
 begin
  writeln('Массив четных чисел:');
  for i:=1 to n1 do
  write(m1[i],' ');
  writeln;
 end;
if n2=0 then writeln('Нечетных чисел нет!')
else
 begin
  writeln('Массив нечетных чисел:');
  for i:=1 to n2 do
  write(m2[i],' ');
 end;
readln
end.