Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество K таких чисел. Delphi 7

Дано целое число 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]