Дано целое число n и набор из n целых чисел. вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество k таких чисел. delphi 7

Консольное приложение:
const n=10; 
var a:array[1..n] of integer;
i,k:integer; 
begin
Randomize;
writeln('Массив A:');

for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i]:4)
 end;
writeln;
k:=0;
writeln('номера чисел в наборе, которые меньше своего левого соседа:');
for i:=2 to n do
 if a[i]<a[i-1] then begin write(i,' '); k:=k+1; end;
writeln;
writeln('k = ',k);
end.

Пример:
Массив A:
  31  37  20  22  37  11  45  19   3  14
номера чисел в наборе, которые меньше своего левого соседа:
3 6 8 9 
k = 4