Отсортировать полученный массив методом "пузьрька"

const
 n=10;
var
 arr: array[1..n] of integer;
 i, j, k, buf, min: integer;
begin
 min:=1;
  for i:=1 to n do
   read(arr[i]);
  for i:=1 to n-1 do
   for j:=1 to n-1 do
    if arr[j]>arr[j+1] then
     begin
      buf:=arr[j];
      arr[j]:=arr[j+1];
      arr[j+1]:=buf;
     end;
  for i:=1 to n do
   write(arr[i], ' ');
end.

{-----------------------------------------------------------------------------------------------------}
program proga;
uses crt;
  type mas=array[1..100] of integer;
  var
       a,b,s:integer;
       i,j:integer;
       al:mas;
{-----------------------------------------------------------------}
procedure vvod(var al:mas);
var g:integer;
 begin
    randomize;
    for g:=1 to 100 do
    al[g]:=random(100);
 end;
{-----------------------------------------------------------------}
procedure sort(var i,j:integer;al:mas);
var a,b,c:integer;
 begin
 for a:=1 to 99 do
 for b:=1 to 100-a do
   begin
   inc(i);
   if al[b]>al[b+1] then
     begin
     c:=al[b+1];
     al[b+1]:=al[b];
     al[b]:=c;
     inc(j);
     end;
   end;
 end;
{-----------------------------------------------------------------------}
procedure vuvod(var i,j:integer; var al:mas);
var b:integer;
 begin
 writeln('kilkict porivnian:',i);
 writeln('kilkict perectanovok:',j);
 writeln;
 for b:=1 to 100 do
 writeln(al[b]);
 close(f2);
 end;
{-------------------------------------------------------------------}
 begin
 i:=0;
 j:=0;
 vvod(al);
 sort(i,j,al);
 vuvod(i,j,al);
 end.