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