Файлы. Переместить отрицательные числа в начало, положительные в конец

uses crt;
var f:file of integer;
    n,i,j,p:integer;
    a,c,d,x:integer;
    k:byte;
begin
clrscr;
assign(f,'file1');
rewrite(f);
writeln('Введите в файл целые положительные и отрицательные чичла, окончание ввода 0');
repeat
readln(c);
if c<>0 then write(f,c);
until c=0;
reset(f);
writeln('Содержание исходного файла:');
while not eof(f) do
 begin
  read(f,c);
  write(c,' ');
 end;
writeln;
close(f);
{перестановка отрицательных вперед}
reset(f);
p:=0;
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,c);
  if c<0 then{если отрицательное}
   begin
    p:=p+1;{считаем}
    x:=c;{запоминаем}
    for j:=i downto p do{идем назад}
     begin
      seek(f,j-1);{читаем предыдущее число }
      read(f,d);
      seek(f,j);{вставляем вперед}
      write(f,d);
     end;
    seek(f,p-1);{вставляем на место которое нашли}
    write(f,x);
   end
 end;
if (p=0)or(p=filesize(f)) then
  begin
   write('Перестановок не было!');
   close(f);
  end
else
 begin
  writeln('Содержание нового файла:');
  reset(f);
  while not eof(f) do
   begin
    read(f,c);
    write(c,' ');
   end;
  close(f);
{замена граничных нолями}
  reset(f);
  for i:=0 to filesize(f)-1 do
   begin
    read(f,c);
    if c>0 then
     begin
      p:=i;
      break;
     end;
    a:=0;
    seek(f,p);
    write(f,a);
    seek(f,p-1);
    write(f,a);
   end;
  close(f);
  writeln('Замена граничных элементов на 0:');
  reset(f);
  while not eof(f) do
   begin
    read(f,c);
    write(c,' ');
   end;
  close(f);
 end;
readln
end.