Bubble sort and Simple Selection Method

const
  nmax=1000;
  
type
  mas=array[1..nmax] of integer;
  
procedure selectSort(var a: mas; n: integer);
var
  i,j,m,t,k1,k2: integer;
begin
  k1:=0; k2:=0;
  for i:=1 to n-1 do
  begin
    m:=i;
    for j:=i+1 to n do
    begin
      inc(k1);
      if a[j]<a[m] then
        m:=j;
      t:=a[i];
      a[i]:=a[m];
      a[m]:=t;
      inc(k2);
    end;
  end;
  writeln('SelectSort: count of comparisons = ',k1);
  writeln('            count of swaps = ',k2);
end;
 
procedure BubbleSort(var a: mas; n: integer);
var
  i,j,t,k1,k2: integer;
begin
  k1:=0; k2:=0;
  for i:=2 to n do
    for j:=n downto i do
    begin
      inc(k1);
      if a[j]<a[j-1] then
      begin
        t:=a[j];
        a[j]:=a[j-1];
        a[j-1]:=t;
        inc(k2);
      end;
    end;
  writeln('BubbleSort: count of comparisons = ',k1);
  writeln('            count of swaps = ',k2);
end;
 
var
  a,b: mas;
  n,i,x,k1,k2: integer;
begin
  n:=15;
  writeln('Source Array');
  for i:=1 to n do
  begin
    a[i]:=random(100)+1;
    write(a[i]:4);
  end;
  writeln; writeln;
  
  b:=a;
 
  selectSort(a,n);
  writeln('Sorted Array');
  for i:=1 to n do write(a[i]:4);
  writeln; writeln;
 
  a:=b;
 
  BubbleSort(a,n);
  writeln('Sorted Array');
  for i:=1 to n do write(a[i]:4);
  readln;
end.