Создать файл f, компонентами которого являются целые случайные числа. Записать в файл g все четные числа файла из f, а в файл h – все нечетные. Порядок следования чисел сохраняется — Pascal(Паскаль)

program vad2211;
uses crt;
var
   f,g,h:file of integer;
   n,i,a:integer;
   
procedure vvod;
begin
  randomize;
  assign(f,'file.int');
  rewrite(f);
  writeln('Формирование файла file.int');
  write('Введите кол-во элементов: ');
  readln(n);
  for i:=1 to n do
  begin
    a:=random(41)-20;
    write(f,a);
  end;
  close(f);
end;
 
procedure vyvod(x:file of integer);
begin
  reset(x);
  while not eof(x) do
  begin
    read(x,a);
    write(a:4);
  end;
  close(x);
end;
  
begin {MAIN PROGRAM}
  clrscr;
  assign(g,'chet.int');
  assign(h,'not_chet.int');
  vvod;
  vyvod(f);
  reset(f); rewrite(h); rewrite(g);
  while not eof(f) do
  begin
    read(f,a);
    if a mod 2 = 0 then write(g,a) else write(h,a);
  end;
  close(f); close(g);
  writeln;
  writeln('Содержимое файла chet.int: ');
  vyvod(g);
  writeln;
  writeln('Содержимое файла not_chet.int:');
  vyvod(h);
  readln;
end.