Найти номера тех элементов массива,которые больше своего правого соседа

program p1;
var a: array [1..N] of integer;
N,i,M: integer;
begin
readln(N);
M:=0;
i:=0;
randomize;
for i:=1 to N do
a[i]:= random(50);
for i:=1 to 30 do
begin
if a[i]>a[i+1] then begin M:=M+1; writeln(i);
end;
writeln(M);
end.

{Array30.Дан массив размера N.Найти номера тех элементов массива,которые 
больше своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их возрастания.}
 
var
  a, b: array[1..30] of integer;
  i, j, k: integer;
  nmin, buf: integer;
 
begin
  randomize;
  for i := 1 to 30 do a[i] := random(10) - 5;
  writeln('Исходный массив: ');
  for i := 1 to 30 do write(a[i], ' ');
  writeln;
  for i := 1 to 30 - 1 do
    if a[i] > a[i + 1] then begin
      inc(k);
      b[k] := i;
    end;
  writeln('Сформированная последовательность: ');
  for i := k downto 1 do write(b[i], ' ');
  writeln;
  writeln('Количество равно: ', k);
end.