Прочитать файл за один проход

program r1;
{Дан текстовый файл, содержащий около сотни целых чисел. Написать программу, которая печатает сначала
все отрицательные числа из файла, а потом положительные. Ограничения на программу: файл читать за один проход
и массивы не использовать. Взаимный порядок среди только отрицательных и только положительных чисел можно не
соблюдать.}
uses
  crt;
var
  f : text;
  n,i : byte;
  a : integer;
  s : string;
function WrNeg():string;
var a : integer; s1 : string;
begin 
  if eof(f) then WrNeg := ''
  else begin
  read(f,a); 
  if a<0 then begin 
               write(a:4); 
               WrNeg := WrNeg(); 
              end
  else begin 
    str(a:4,s1);
    WrNeg := s1 + WrNeg();
  end;
end;  
end;  
begin
  clrscr;
  assign(f,'FileText.txt');
  rewrite(f);
  randomize;
  n := random(10)+95;
  for i := 1 to n do begin
    a := random(51)-25; 
    writeln(f,a:4);
    end;
  reset(f);
  writeln('Исходный файл FileText.txt : ');
  while not eof(f) do
   begin
    readln(f,a);
    write(a:4);
   end; 
  writeln;
  writeln('Все отрицательные числа из файла, а потом положительные :');  
  reset(f); 
  s := WrNeg();
  writeln;
  delete(s,length(s),1);
  writeln(s);
  close(f);
  readln;
end.