Все отрицательные элементы целочисленного файла перенести в начало файла - Turbo Pascal

program zero;
 
var i, p: longint;
    a, b: integer;
    f: file of integer;
 
begin
  assign(f, 'c:\test.dat');
  reset(f);
  p := 0;
  for i := 0 to sizeof(f) - 1 do
    begin
      seek(f, i);
      read(a);
      if a < 0
        then begin
          seek(f, p);
          read(b);
          seek(f, p);
          write(a);
          inc(p);
          seek(f, i);
          write(b)
        end
    end;
  close(f)
end.