В файл g записать четные числа, а файл h — нечетные

program laba3;
uses crt;
var
  f,g,h:text;
  chislo:integer;
begin
textbackground(7);
clrscr;
  assign( f,'C:\nachalo.txt');
  assign( g,'C:\chetn.txt');
  assign( h, 'C:\nechetn.txt');
  reset(f);
  rewrite(g);
  rewrite(h);
  while(not eof(f)) do
  begin
    read(f,chislo );
    if( chislo mod 2 = 0 ) then
      write(g,chislo,' ')
    else
      write( h,chislo,' ');
  end;
  close(h);
  close(g);
  close(f);
  gotoxy(30,12);
  textcolor(1);
  writeln( 'Программа выполнена!' );
  readln;
end.

program laba3;
uses crt;
var
  f,g,h:file of integer;
  n,i,chislo:integer;
begin
textbackground(7);
clrscr;
randomize;
  assign( f,'nachalo');
  assign( g,'chetn');
  assign( h, 'nechetn');
  rewrite(f);
  rewrite(g);
  rewrite(h);
  write('Сколько чисел записать в файл n=');
  readln(n);
  for i:=1 to n do
   begin
    chislo:=random(50);
    write(f,chislo);
   end;
  writeln('Исходный файл:');
  reset(f);
  while(not eof(f)) do
  begin
    read(f,chislo);
    write(chislo,' ');
    if chislo mod 2 = 0 then write(g,chislo)
    else write( h,chislo);
  end;
  writeln;
  close(f);
  writeln('Файл четных чисел:');
  reset(g);
  while not eof(g) do
   begin
    read(g,chislo);
    write(chislo,' ');
   end;
  writeln;
  close(g);
  reset(h);
 writeln('Файл нечетных чисел:');
  while not eof(h) do
   begin
    read(h,chislo);
    write(chislo,' ');
   end;
  close(h);
  readln;
end.