Сортировка пирамидой: Вычислить сколько шагов сделала сортировка

const n=5;
var
  a: array [1..n] of integer;
  i, j: integer;         // Счётчики
  Amin: integer;      // Минимальное значение массива в текущей итерации цикла
  IndMin: integer;    // Индекс минимального элемента
  tmp: integer;       // Временная переменная для перестановки значений элементов массива
 
begin
     // Заполнение массива
     writeln('Исходный массив:');
     for i:=1 to n do
     begin
         a[i]:=random(101);
         write(a[i], ' ');
     end;
     writeln();
 
     for j:= 1 to n-1 do
     begin
         Amin:=a[j];
         IndMin:=j;
         // Поиск минимального элемента
         for i:=j+1 to n do
             begin
             if Amin>a[i] then
             begin
                 Amin:=a[i];           // Сохраняем значение минимального элемента
                 IndMin:=i;            // Сохраняем индекс минимального элемента
             end;
         end;
         // Перестановка местами первого и минимального элементов массива
         tmp:=a[j];
         a[j]:=Amin;
         a[IndMin]:=tmp;
     end;
 
     // Вывод массив
     writeln('Результат после сортировки:');
     for i:=1 to n do
         write(a[i], ' ');
end.

const n=5;
var
  a: array [1..n] of integer;
  step: integer;         // Количество шагов
  i, j: integer;         // Счётчики
  Amin: integer;      // Минимальное значение массива в текущей итерации цикла
  IndMin: integer;    // Индекс минимального элемента
  tmp: integer;       // Временная переменная для перестановки значений элементов массива
 
begin
     // Заполнение массива
     writeln('Исходный массив:');
     for i:=1 to n do
     begin
         a[i]:=random(101);
         write(a[i], ' ');
     end;
     writeln();
 
     for j:= 1 to n-1 do
     begin
         Amin:=a[j];
         IndMin:=j;
         // Поиск минимального элемента
         for i:=j+1 to n do
             begin
             if Amin>a[i] then
             begin
                 step+=1;
                 Amin:=a[i];           // Сохраняем значение минимального элемента
                 IndMin:=i;            // Сохраняем индекс минимального элемента
             end;
         end;
         // Перестановка местами первого и минимального элементов массива
         tmp:=a[j];
         a[j]:=Amin;
         a[IndMin]:=tmp;
     end;
 
     // Вывод массив
     writeln('Количество шагов: ', step);
     writeln('Результат после сортировки:');
     for i:=1 to n do
         write(a[i], ' ');
end.