Сортировка файла методом "пузырька"

uses crt;
const n=15;
var f:file of integer;
    a,b:integer;{переменные для записи и чтения файла}
    p,l,r,m:integer;{число для поиска, левый, правый края и середина
                      интервала поиска}
    i,j,ip:integer; {счетчики циклов и номер найденного числа}
begin
randomize;
assign(f,'fileF'); {создадим и запишем файл}
rewrite(f);
for i:=1 to n do
 begin
  a:=random(500);
  write(f,a);
 end;
writeln('Содержание исходного файла:');{просмотрим}
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:4);
 end;
writeln;
writeln;
seek(f,0);{вернемся в начало}
{отсортируем пузырьком по возрастанию}
for i:=0 to filesize(f)-2 do
for j:=filesize(f)-1 downto i+1 do
 begin
  seek(f,j-1);
  read(f,a);
  seek(f,j);
  read(f,b);
  if a>b then
  begin
   seek(f,j-1);
   write(f,b);
   seek(f,j);
   write(f,a);
  end;
 end;
seek(f,0);{в начало, и просмотрим}
writeln('Содержание отсортированного файла:');
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:4);
 end;
writeln;
write('Введите число для поиска p=');
read(p);
{поскольку файл упорядочен, применим бинарный пориск}
l:=0;{левый край пока начало файла}
r:=filesize(f)-1;{правый 0 конец}
ip:=-1;{номер пока=-1}
seek(f,0);{вернемся в начало}
while(l<=r)and(ip=-1) do{пока левый и правфй края не соединятся
                          и не найдем число}
 begin
  m:=(l+r)div 2;{вычисляем середину}
  seek(f,m);{встаем туда и читаем число}
  read(f,a);
  if p<a then r:=m-1{если оно больше искоиого,
                      сдвигаем правый край влево за середину}
  else if p>a then l:=m+1{если оно меньше, сдвигаем левый край за середину}
  else ip:=m;{если равно, нашли, запоминаем номер}
 end;
close(f);
if ip=-1 then write('Числа ',p,' в файле нет')
else write('Число ',p,' имеет порядковый номер=',ip+1);
end.