Сортировка Пузырьком,

uses crt;
var f:file of integer;
    a,b,i,j,k,x:integer;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
writeln('Введите в файл до 100 целых чисел, окончание ввода 0:');
i:=0;
repeat
write('a=');
readln(a);
i:=i+1;
if i=100 then a:=0;
write(f,a);
until a=0;
clrscr;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
close(f);
reset(f);
for i:=0 to filesize(f)-2 do
for j:=i+1 to filesize(f)-1 do
  begin
    seek(f,i);
    read(f,a);
    seek(f,j);
    read(f,b);
    if a>b then
      begin
       x:=a;
       a:=b;
       b:=x;
       seek(f,i);
       write(f,a);
       seek(f,j);
       write(f,x);
      end;
   end;
close(f);
writeln('Содержание отсортированного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
writeln;
write('Какое число вставить в файл? b=');
readln(b);
reset(f);
i:=0;
while not eof(f) do
 begin
  read(f,a);
  if a>=b then
   begin
    k:=i;
    break;
   end
  else i:=i+1;
  if i=filesize(f)-1 then k:=i+1;
 end;
writeln('k=',k);
close(f);
reset(f);
for i:=filesize(f) downto k+1 do
 begin
  seek(f,i-1);
  read(f,a);
  seek(f,i);
  write(f,a);
 end;
seek(f,k);
write(f,b);
close(f);
reset(f);
writeln('Содержание измененного файла:');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
readln
end.

program nums;
 
uses crt;
 
const
raz=5;
 
type
mas=array[1..200] of integer;
 
var
m:mas;
i:integer;
pos,num:integer;
 
procedure sort(var m1: mas; const N:integer); {сортировка пузырьком}
var i,j,t:integer;
begin
 for j:=1 to N-1 do
  for i:= 1 to N-j do
   if m1[i]>m1[i+1] then
   begin
    t:=m1[i];
    m1[i]:=m1[i+1];
    m1[i+1]:=t;
   end;
end;
 
function numpos(m1:mas; n,r:integer):integer; {позиция вставки}
var i: integer;
begin
i:=1;
if m1[i]>=n then numpos:=i
else if n>m1[raz] then numpos:=raz+1
else while N>m1[i] do
 begin
  inc(i);
  numpos:=i;
 end;
end;
 
procedure ins; {вставка}
var a,b:integer;
begin
 a:=raz;
 if num>m[raz] then m[raz+1]:=num
 else
 begin
  for i:=a downto pos do
   begin
    m[a+1]:=m[a];
    dec(a);
   end;
  m[a+1]:=num;
 end;
end;
 
 
BEGIN
 clrscr;
 for i:=1 to raz do
 begin
  write('m[',i,'] = '); readln(m[i]); {заполняем}
 end;
 sort(m,raz); {сортируем}
 write('Вставить число: ');readln(num);
 pos:=numpos(m,num,raz); {смотрим куда вставлять}
 writeln('Позиция нового числа: ',pos);
 ins; {вставляем число}
 for i:=1 to 10 do write(m[i], ' '); {вывод результата}
 readkey;
END.