Задача на файлы, помоги пожалуйста Опции

[SoulDrinker]

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

[Jahnerus]

Код

var
 f1,f2,f3:text;
 s:string;
 i,er:integer;

begin
 assign(f1,'c:\f.dat');
 reset(f1);
 assign(f2,'c:\g.dat');
 rewrite(f2);
 assign(f3,'c:\h.dat');
 rewrite(f3);
 repeat
    readln(f1,s);
    val(s,i,er);
    if (i mod 2)=0 then writeln(f2,i)
    else writeln(f3,i);
 until eof(f1);
 close(f1);
 close(f2);
 close(f3);
end.

[SoulDrinker]

спосибо