Сортировка простым обменом (метод пузырька)

uses crt;
type mas=array[1..250] of integer;
procedure Sort(var m:mas;n:byte;var k:integer);
var i,j:byte;
    x:integer;
begin
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if m[i]>m[j] then
 begin
  k:=k+1;
  x:=m[i];
  m[i]:=m[j];
  m[j]:=x;
 end;
end;
var a:mas;
    m,n,i,j:byte;
    kp,sr:integer;
begin
clrscr;
randomize;
m:=10;
n:=10;
sr:=0;
for i:=1 to m do
 begin
   for j:=1 to n do
   a[j]:=random(20);
   Sort(a,n,kp);
   sr:=sr+kp;
 end;
writeln('Среднее число обменов при n=10 =',round(sr/m));
n:=50;
sr:=0;
for i:=1 to m do
 begin
   for j:=1 to n do
   a[j]:=random(20);
   Sort(a,n,kp);
   sr:=sr+kp;
 end;
writeln('Среднее число обменов при n=50 =',round(sr/m));
n:=250;
sr:=0;
for i:=1 to m do
 begin
   for j:=1 to n do
   a[j]:=random(20);
   Sort(a,n,kp);
   sr:=sr+kp;
 end;
writeln('Среднее число обменов при n=250 =',round(sr/m));
readln
end.