Информатика 10 класс. Срочно!!!

В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 1;4;0;4;4;5;3;4;9;0 соответственно. Определите значение переменной c после выполнения следующего фрагмента программы:
1) c := 0;
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;

2) c := 0;
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;
3) c := 0;
for i := 1 to 9 do
if A[i] < A[0] then begin
c := c + 1;
t := A[i];
A[i] := A[0];
A[0] := t;
end;

4) c := 0;
n := 10;
for i:=0 to n-2 do begin
c := c + A[i] - A[i+1];
end;

5) n:= 10;
c:= 0;
for i:=1 to n-1 do
if A[i] > A[i-1] then begin
A[i]:= A[i] - A[i-1];
c:= c + A[i]
end;

6) n:= 10;
c:= 0;
for i:=1 to n-1 do begin
if A[i] > A[i-1] then
A[i]:= 2*A[i] - A[i-1];
c:= c + A[i]
end;