Нужно написать программу которая считывает из файла f целые числа и записывает их в файл h или g

[Гарри]

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

Uses crt;
var g,h,F:file of integer;
a:integer;
begin
 assign(F,'C:\f.txt' );
 reset(F);
 assign(g,'C:\g.txt' );
 rewrite(g);
 assign(h,'C:\h.txt' );
 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.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Помогите найти ошибку или подскажите правильное решение.

да всё тут нормально.
кроме одного - вы не понимаете, что такое файл, состоящих из целых чисел (file of integer) (он же "типизированный") и чем он отличается от ТЕКСТОВОГО файла (который, судя по всему, Вы пытаетесь подсунуть программе.

Создайте предварительно с помощью отдельной программы типизированный файл с числами и ваша программа заработает.