Обработать файл так, что бы начала шли все положительные, а затем <= 0 компоненты.

 {Обработать файл так, что бы начала шли все положительные, а затем <= 0 компоненты. Ввод-вывод данных файла опустил, там понятно. А здесь если в файле все положительные числа - все ОК, попадется отрицательное -"файл не открыт" (103 ошибка)}
 
Procedure inv (var f: fint);
var k, i, j, p, x, y: integer;
g: boolean;
begin
 {$I-} reset (f); {$I+}
 if ioresult =0 then
begin
 writeln ('Obrabotka zadanyya');
  K:= filesize (F);
   for i:=0 to K-1 do
    begin     {error 103}
     seek (f,i);   
     read (f,x);
      if x < 0 then 
       begin
        p:=i ;
         for j:=p+1 to k do
          begin
           g:=false;
            seek(f,j); 
             read (f,y);  
              if y > 0 then 
               begin
                g:= true;
                 break;
               end
                 else continue;
           if g then
            begin
             seek (f,p);
             write (f,y);
             seek (f,j);
             write (f,x);
            end
         else continue
       end;
         write ('***************');
           close (f);
     end
      else writeln ('OSHIBKA')
     end;
  end;
end;

uses crt;
var f:file of integer;
    n,i,j,p:integer;
    c,d,x:integer;
    k:byte;
begin
clrscr;
randomize;
assign(f,'file1');
rewrite(f);
write('Введите количество чисел в файле n=');
readln(n);
for i:=1 to n do
 begin
  c:=random(20)-9;
  write(f,c);
 end;
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);
 end;
readln
end.