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

type rad = file of integer;
Var g,f,h:rad;
    m:integer;
Procedure P(g:rad;Var f,h:rad);
Var m:integer;
Begin
    Reset(g);
    Rewrite(f);Rewrite(h);
    While Not Eof(g) do
    Begin
      read(g,m);
      if m>0 then write(f,m)
       else write(h,m);
    End;
End;
Begin
    Assign(g,'in.dat');Rewrite(g);
    writeln('Окончание ввода "0"');
    Repeat
     write('Введите число = ');readln(m);
     if m<>0 then write(g,m);
    Until m=0;
    Assign(f,'out1.dat');
    Assign(h,'out2.dat');
    P(g,f,h);
    Reset(f);Reset(h);
    writeln('Файл F');
    While not Eof(f) do
    Begin
      read(f,m);
      write(m,' ');
    End;
    writeln;
    writeln('Файл H');
    While not Eof(h) do
    Begin
      read(H,m);
      write(m,' ');
    End;
    Close(f);Close(h);Close(g);
End.

uses crt;
 
type rad=file of integer;
 
procedure p(var g,f,h:rad);
var a:integer;
begin
reset(g);
while not eof(g) do
 begin
  read(g,a);
  if a>0 then write(f,a)
  else if a<0 then write(h,a);
 end;
close(g);
end;
 
var f,g,h:rad;
    a:integer;
begin
assign(g,'fileG');
rewrite(g);
assign(f,'fileF');
rewrite(f);
assign(h,'fileH');
rewrite(h);
writeln('Введите в файл целые положительные и отрицательные числа,');
writeln('окончание ввода 0');
repeat
read(a);
write(g,a);
until a=0;
p(g,f,h);
reset(f);
if filesize(f)=0 then writeln('Положительных чисел нет')
else
 begin
  writeln('Файл F, положительных чисел:');
  while not eof(f) do
   begin
    read(f,a);
    write(a,' ');
   end;
  writeln;
 end;
close(f);
reset(h);
if filesize(h)=0 then writeln('Отрицательных чисел нет')
else
 begin
  writeln('Файл H, отрицательных чисел:');
  while not eof(h) do
   begin
    read(h,a);
    write(a,' ');
   end;
  writeln;
 end;
close(h);
end.