Уровень A. Напишите программу, в которой сортировка выполняется «методом камня» – самый «тяжёлый» элемент опускается в конец массива.

var a:array[1..10000] of integer; n,i,j,k,t:integer; begin readln(n); for i:=1 to n do read(a[i]); j:=n; repeat k:=j; j:=0; for i:=1 to k-1 do if a[i+1]j:=i; t:=a[i]; a[i]:=a[i+1]; a[i+1]:=t; for t:=1 to n do write(a[t],' '); writeln; end; until j=0; if k=n then writeln(0); //Если перестановок не было, программа выводит только число 0. Если эта команда не нужна, можешь ее убрать end.