ПОМОГИТЕ ПОЖАЛУЙСТА Дан массив размера N. Найти номера тех элементов массива которые больше своего левого соседа и количество таких элементов. Найденные номера выводить в порядке их убывания

Const
  n=10;
var
  a:array[1..n]of integer;
  i,k:integer;
begin
for i:=1 to n do
  begin
  a[i]:=random(10);
  write(a[i],; );
  end;
writeln;
write(Искомые номера: );
for i:=n downto 2 do
  if a[i]>a[i-1] then
    begin
    k:=k+1;
    write(i,; );
    end;
writeln;
writeln(Количество элементов: ,k);
end.