РЕШИТЕ И Растолкуйте. Заблаговременно спасибо! В программке употребляется одномерный целочисленный массив

РЕШИТЕ И Растолкуйте. Заранее спасибо!
В программке употребляется одномерный целочисленный массив A с индексами от 0 до 9. Значения частей одинаковы 6, 7, 3, 8, 5, 1, 2, 0, 9, 4 соответственно, то есть A[0] = 6, A[1] = 7 и так дальше.

Обусловьте значение переменной c после исполнения следующего куска этой программы (записанного ниже на 5 языках программирования).

c := 0;

for i := 1 to 9 do

if A[i] lt; A[0] then

begin

c := c + 1;

t := A[i];

A[i] := A[0];

A[0] := t;

end;