В файле найти первое положительное и последнее отрицательное числа

Program JOB;
uses crt;
Var n,i,pol,ipl,otr,iot,k,j:integer;
    f:file of integer;
Begin
Assign(f,'f.dat');
ReWrite(f);
Writeln('Введите положительные и отрицательные целые числа, окончание ввода 0:');
Repeat
ReadLn(n);
if n<>0 then write(f,n)
Until n=0;
clrscr;
seek(f,0);
WriteLn('Числа, записанные в файле:');
ipl:=-1;
iot:=-1;
for i:=0 to filesize(f)-1 Do
 Begin
  Read(f,n);
  Write(n,' ');
  if (n>0)and(ipl=-1) then
   begin
    pol:=n;
    ipl:=i;
   end
  else  if n<0 then
   begin
    otr:=n;
    iot:=i;
   end
End;
Writeln;
k:=0;
if ipl=-1 then
 begin
  k:=1;
  Writeln('В файле нет положительных чисел')
 end
else WriteLn('Первое положительное=',pol,' номер позиции=',ipl);
if iot=-1 then
 begin
  k:=1;
  Writeln('В файле нет отрицательных чисел')
 end
else WriteLn('Последнее отрицательное=',otr,' номер позиции=',iot);
if abs(ipl-iot)=1 then
 begin
  k:=1;
  writeln('Между первым положительным и последним отрицательным нет чисел');
 end;
if k=1 then close(f)
else
 begin
  seek(f,iot);//удалим начиная с последнего отрицательного
  truncate(f);
  seek(f,0);//будем удалять начало
  k:=filesize(f)-ipl-1;{сколько останется}
  j:=filesize(f)-k;{сколько удалить}
  for i:=1 to k do{переставим все что после первого положительного в начало}
   begin
    seek(f,ipl+i);
    read(f,n);
    seek(f,i-1);
    write(f,n);
   end;
  seek(f,filesize(f)-j);{все остальное отрежем}
  truncate(f);
  writeln('Остались числа:');
  seek(f,0);
  While not EOF(f) Do
   begin
    Read(f,n);
    Write(n,' ');
   end;
  close(f);
 end;
end.