Метод пузырька (Фрагмент программы, позволяющий выполнить сортировку массива)

for i :=1 to 9 do

if A[i-1] >= A[i] then

begin

t:=A[i];

A[i] := A[i-1];

A[i - 1] := t;

end

else

c:=c+1;

writeln(c,' rez ');