ПОМОГИТЕ ПОЖАЛУЙСТА
Дан массив размера 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.