Вывести на экран вначале отрицательные, а затем неотрицательные члены последовательности

program PROG10;
uses crt;
type
  TFile = File of real;
 
procedure CreateFile(var f : TFile; s : string);
Var 
  i, n : integer;
  a : real;
Begin
  assign(f,s);
  rewrite(f);
  write('Количество компонентов файла : '); 
  readln(n);
  writeln('Компоненты файла ',s,' :');
  randomize;
  for i := 1 to n do 
  begin
    a := random(61) - 30 + random;
    write(f,a);
    write(a:7:2);
  end;
  writeln;
  close(f);
End;
 
procedure NegPosElem(var f : TFile; s : string; i : integer);
Var 
  a : real;
Begin
  assign(f, s);
  reset(f);  
  seek(f,i);
  If EOF(f) then begin
  close(f); 
  exit
end 
else 
  begin
    read(f, a);
    if a < 0 then begin
    close(f);
    write(a:7:2);
    NegPosElem(f,s,i+1);
  end 
  else 
    begin
      close(f);
      NegPosElem(f,s,i+1);
       write(a:7:2);
    end;
  end;
end;
Var 
  s : string;
  f : TFile;
Begin
  clrscr;
  write('Имя файла :');
  s := 'f1.dat'; 
  writeln; //readln(s);
  CreateFile(f,s);
  NegPosElem(f,s,0);
  readln;
End.

program PROG10;
// uses crt;
type
  TFile = File of real;
 
procedure CreateFile(var f : TFile; s : string);
Var 
  i, n : integer;
  a : real;
Begin
  assign(f,s);
  rewrite(f);
  write('Количество компонентов файла : '); 
  readln(n);
  writeln('Компоненты файла ',s,' :');
  randomize;
  for i := 1 to n do 
  begin
    a := random(61) - 30 + random;
    write(f,a);
    write(a:7:2);
  end;
  writeln;
  close(f);
End;
 
procedure NegPosElem(var f : TFile);
Var 
  a : real;
Begin
  if EOF(f) then exit;
  
  read(f, a);
  if a < 0 then write(a:7:2);
  NegPosElem(f);
  if a >= 0 then write(a:7:2);
end;
 
Var 
  s : string;
  f : TFile;
Begin
  // clrscr;
  write('Имя файла :');
  s := 'f1.dat'; 
  writeln; //readln(s);
  CreateFile(f,s);
  assign(f, s);
  reset(f);
  NegPosElem(f);
  close(f);
  // readln;
End.