Помогите безотлагательно нужно!!!!В программке употребляется одномерный целочисленный массив A с

Помогите срочно нужно!!!!
В программке употребляется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов одинаковы 5; 1; 6; 7; 8; 8; 7; 7; 6; 9 соответственно, т.е. A[0] = 5; A[1] = 1 и т.д. Обусловьте значение переменной c после исполненья последующего куска программки:
c := 0;
for i := 1 to 9 do
if A[i-1] gt;= A[i] then begin
t:= A[i];
A[i]:= A[i - 1];
A[i-1]:= t
end
else
c:= c + 1;