Описать процедуру p(g,f,h), которая из g переписывает положительные числа в файл f, а отрицательные в h

program _files;
 
 
 
type
 
 rad = file of integer;
 
var
 
 g,f,h:rad;
 
 
procedure p(g,f,h:rad);
 
 var
  i,count,n:integer;
  
begin
 count:=filesize(g);
 for i:=1 to count do begin
                       read(g,n);
                       if n>0 then write(f,n);
                       if n<0 then write(h,n);
                      end;
end;
 
procedure fillFile(f:rad;n:integer);
 var
  i,x,sign:integer;
begin
 for i:=1 to n do begin
                   x:=random(100);
                   sign:=random(2);
                   if odd(sign) then x:=-x;
                   write(f,x);
                  end;
end;
 
procedure outfile(const headstr:string;f:rad);
 var
  i,count,n:integer;
begin
 writeln(headstr);
 count:=filesize(f);
 for i:=1 to count do begin
                       read(f,n);
                       write(n,' ');
                      end;
 writeln;                      
end;
 
BEGIN
 
{ fill input file }
 Assign(g,'g.dat');rewrite(g);
 randomize;
 FillFile(g,20);
 close(g);
 
{ assign & process. }
 Assign(g,'g.dat');reset(g);
 Assign(f,'f.dat');rewrite(f);
 Assign(h,'h.dat');rewrite(h);
 p(g,f,h);
 close(g);
 close(f);
 close(h);
 
{ output }
 Assign(g,'g.dat');reset(g);
 Assign(f,'f.dat');reset(f);
 Assign(h,'h.dat');reset(h);
 outfile('содержимое файла g:',g);
 outfile('содержимое файла f:',f);
 outfile('содержимое файла h:',h);
 close(g);
 close(f);
 close(h);
 
END.