Напишите программу,которая из файла F (f,g:file of integer)переписывает в пустой файл g сначала все положительные числа,а потом все отрицательные - Pascal

Var f,g:file of integer;
    i,m:integer;
Begin
    Assign(f,'in.dat');Rewrite(f);
    Assign(g,'out.dat');Rewrite(g);
    writeln('Исходный файл');
    For i:=1 to random(11)+10 do
    Begin
      m:=random(31)-15;
      write(m:4);
      write(f,m);
    End;
    writeln;
    writeln('Полученный файл');
    Reset(f);
    While not Eof(f) do
    Begin
      read(f,m);
      if m>0 then write(g,m);
    End;
    Reset(f);
    While not Eof(f) do
    Begin
      read(f,m);
      if m<0 then write(g,m);
    End;
    Reset(g);
    While not Eof(g) do
    Begin
      read(g,m);
      write(m:4);
    End;
    Close(f);Close(g);
    readln;
End.