procedure ChangeArray(Number: Byte; var MyArray: TArr);

var

i, j: Byte;

ArrayofCounters: TArrCount;

NewArray: TArr;

begin

for i := 1 to Number do

ArrayofCounters[i] := 1;

for i := 1 to Number - 1 do

for j := i + 1 to Number do

if MyArray[i] < MyArray[j] then

inc(ArrayofCounters[j])

else

inc(ArrayofCounters[i]);

NewArray := MyArray;

for i := 1 to Number do

begin

j := ArrayofCounters[i];

NewArray[j] := MyArray[i];

Writeln('Step [', i, ']');

OutputConsole(Number, NewArray);

end;

MyArray := NewArray;

end;