Записать в файл - g все четные числа файла - f, а в файл - h все нечетные числа

program xxx;
 
var
f,g,h : file of integer;
i,x,y : integer;
 
begin
    assign(f,'f.txt');
    rewrite(f);
    write('Введите кол-во чисел: ');
    readln(x);
    {заполнение исходного файла f рандомными целыми числами}
    randomize;
    for i := 1 to x do
        begin
            y := random(10)+1;
            write(f,y);
        end;
    close(f);
    {запись четных в -g, а нечетных в h}
    assign(g,'g.txt');
    assign(h,'h.txt');
    rewrite(g);
    rewrite(h);
    reset(f);
    while not eof(f) do
        begin
            read(f,y);
            if y mod 2 = 0 then
                write(g,y)
            else
                write(h,y);
        end;
    {тест, вывод на экран}
    writeln('Файл g:');
    reset(g);
    while not eof(g) do
        begin
            read(g,y);
            write(y,' ');
        end;
    writeln;
    writeln('Файл h:');
    reset(h);
    while not eof(h) do
        begin
            read(h,y);
            write(y,' ');
        end;
    close(f);
    close(g);
    close(h);
    readln;
end.