В файл g записать положительные числа, а в файл h — отрицательные

program txt;
Uses crt;
const n=10;
Var f,g,h: file of integer;
    nameF,nameG,nameH:string;
    p,i:integer;
 
Begin
 nameF:='f.pas'; nameG:='g.pas'; nameH:='h.pas';
 clrscr;
 assign(f,nameF); rewrite(f);
 writeln('Введите массив из ',n,' целых чисел');
 for i:=1 to n do begin
   read(p);
   write(f,p);
 end;
 close(f);
 assign(f,nameF); reset(f);
 assign(G,nameG); rewrite(G);
 assign(H,nameH); rewrite(H);
 while not eof(f) do begin
   read(f,p);
   if p>=0 then write(G,p)
   else write(H,p);
 end;
 close(f); close(G); close(H);
 writeln;
 assign(G,nameG); reset(G);
 writeln('Файл G (положительные числа):');
 while not eof(G) do begin
   read(G,p);
   write(p:4);
 end;
 close(G);
 writeln;
 assign(H,nameH); reset(H);
 writeln('Файл H (отрицательные числа):');
 while not eof(H) do begin
   read(H,p);
   write(p:4);
 end;
 close(H);
 writeln;
 
End.

Uses
  crt;
 
const
  n=10;
 
type
  tnumbers=file of integer;
 
Var
  f,g,h:tnumbers;
 
procedure RecToFile;
var
  num:integer;
  i:byte;
begin
  for i:=1 to n do begin
   read(num);
   write(f,num);
  end;
end;
 
procedure ProcessFile;
var
  num:integer;
begin
  while not eof(f) do begin
    read(f,num);
    if num>0 then
      write(g,num);
    if num<0 then
      write(h,num);
  end;
end;
 
procedure ReadFile(var afile:tnumbers);
var
  num:integer;
begin
  while not eof(afile) do begin
    read(afile,num);
    write(num,' ');
  end;
end;
 
Begin
  clrscr;
  assign(f,'C:\Files for Program Pascal\F.dat'); rewrite(f);
  assign(g,'C:\Files for Program Pascal\G.dat'); rewrite(g);
  assign(h,'C:\Files for Program Pascal\H.dat'); rewrite(h);
  writeln('Введите массив из ',n,' целых чисел:'); writeln;
  RecToFile;
  reset(f);
  ProcessFile;
  close(f);
  writeln;
  reset(g); reset(h);
  writeln('Файл G (положительные числа):'); writeln;
  ReadFile(g);
  close(g);
  writeln; writeln;
  writeln('Файл H (отрицательные числа):'); writeln;
  ReadFile(h);
  close(h);
  readln;
  readln;
End.

type
  tnumbers=file of integer;
 
Var
  f,g,h:tnumbers;

Var
  f,g,h:file of integer;