Помогите,нужно составить на Паскале!

Увы, Stringer, вы допустили много ошибок в коде.. .
Вот мой вариант который работает правильно:
program Neylon(g,h,f);
var
g,h,f:file of integer;
i,n,a:integer;
begin
assign(g, 'g.file');
assign(h, 'h.file');
assign(f, 'f.file');
{Для начала создадим файл f, из которого потом будем читать компоненты: }
writeln('Сколько хотите записать чисел в файл? ');
readln(n);
rewrite(f);
for i:=1 to n do
begin
writeln(i,') Введите число ');
readln(a);
write(f,a);
end;
close(f);
{Теперь сортируем компоненты: }
rewrite(g);
rewrite(h);
reset(f);
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);
close(h);
reset(f);
reset(g);
reset(h);
writeln('File F: ');
while not eof(f) do
begin
read(f,a);
write(a,' ');
end;
writeln('File G: ');
while not eof(g) do
begin
read(g,a);
write(a,' ');
end;
writeln('File H: ');
while not eof(h) do
begin
read(h,a);
write(a,' ');
end;
close(f);
close(g);
close(h);
end.
Пример работы:
Сколько хотите записать чисел в файл? 3
1) Введите число 2
2) Введите число 4
3) Введите число 3
File F: 2 4 3
File G: 2 4
File H: 3

Сори пишу чисто по памяти, паскаля нет под рукой, так что придется доработать самому.

var
F,G,H: File; \\точно не помню как указывается переменная
s:string;
i,error:integerl
begin
Assign(F,'C:\f.txt');
Assign(G,'C:\g.txt'));
Assign(H,'C:\h.txt'));
append(G);
append(H);
reset(F);
while not eof(F) do
begin
readln(s);
val(s,i,error)
If (i mod 2) = 0 then writeln(G,i);
else writeln(H,i);
end;
end