Определить количество перестановок и сравнений в сортировке прямого выбора

const Nmax=100;
label restart;
type MasType=array[1..Nmax] of integer;
 
procedure Swap(var a,b:integer);
var tmp:integer;
begin
 tmp:=a;
 a:=b;
 b:=tmp;
end;
 
function IndMin(mas:MasType; start:integer):integer;
var i,imin:integer;
begin
 imin:=start;
 for i:=start+1 to Nmax do
  if mas[i]<mas[imin] then imin:=i;
 IndMin:=imin;
end;
 
function Max(mas:MasType):integer;
var i,m:integer;
begin
 m:=mas[1];;
 for i:=2 to Nmax do
  if mas[i]>m then m:=mas[i];
  Max:=m;
end;
 
procedure Sort_Choice2(imas:MasType; var nmas:MasType);
var i,im:integer;
begin
 for i:=1 to Nmax do
 begin
  im:=IndMin(imas,1);
  nmas[i]:=imas[im];
  imas[im]:=Max(imas)+1;
 end;
end;
 
procedure Sort_Choice1(var mas:MasType);
var i:integer;
begin
 for i:=1 to Nmax-1 do
  Swap(mas[IndMin(mas,i)],mas[i]);
end;
 
procedure PrintArray(mas:MasType);
var i:integer;
begin
 for i:=1 to Nmax do write(mas[i]:4);
 writeln();
end;
 
{Основная программа}
var X,Y:MasType;
    num,i,sr,per,t:integer;
    q:char;
begin
  randomize;
  for i:=1 to Nmax do
    begin
      X[i]:=random(100);
    end;
  writeln('Исходный массив:');
  PrintArray(X);
  restart:
  writeln('Выберите метод сортировки:');
  writeln('1 - метод прямого выбор (способ 1)');
  writeln('2 - метод прямого выбор (способ 2)');
  readln(num);
  writeln('Отсортированный массив:');
  case num of
   1: begin Sort_Choice1(X); PrintArray(X); end;
   2: begin Sort_Choice2(X,Y); PrintArray(Y); end;
  end;
  write('Завершить работу программы? (y/n)');
  readln(q);
  if (q='n') then goto restart
             else writeln('Программа завершена!');
end.