Файлы: В файле f записаны целые числа. Написать программу, которая в файл g записывает четные числа, а файл h - нечетны

[Гарри]

Помогите решить пожалуйста:
В файле f записаны целые числа. Написать программу, которая в файл g записывает четные числа, а файл h - нечетные.

[Serge_Bliznykov]

var f,g,h : file of integer;
  a : integer;
begin
  Assign(f, 'File1.dat')
  Reset(f);
  Assign(g, 'File2.dat')
  Rewrite(g);
  Assign(h, 'File3.dat')
  Rewrite(h);
  while not eof(f) do begin
    Read(f,a);
    if odd(a) then Write(h,a) else Write(g,a);
  end;
  Close(f); Close(g); Close(h);
end.