Файлы в Паскале

[Hichcog]

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

Помогите пожалуйста разобраться с задачей, вот что мне удалось набросать:

program fail;
var f,g,h:file of integer;
a:integer;
c:char;
begin
assign(f,'c:\downloads\f');
rewrite(f);
assign(g,'c:\downloads\g');
rewrite(g);
assign(h,'c:\downloads\h');
rewrite(h);
writeln('Vvedite v fail F celye chisla, okonchanie vvoda Esc:');
repeat
write('a=');
readln(a);
write(f,a);
c:=readkey;
until c=#27;
reset(f);
writeln('Ishodnyj fail:');
while not eof(f) do
begin
read(f,a);
write(a,' ');
if odd(a)then write(h,a)
else write(g,a);
end;
close(f);
writeln;
reset(g);
writeln('Fail chetnih chisel:');
while not eof(g) do
begin
read(g,a);
write(a,' ');
end;
close(g);
writeln;
reset(h);
writeln('Fail nechetnih chisel:');
while not eof(h) do
begin
read(h,a);
write(a,' ');
end;
close(h);
readln
end.