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

const  n=10;var  a:array[1..n]of integer;  i,k:integer;beginfor 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.