Имеется массив А из N произвольных чисел (А(N)), среди которых есть положительные отрицательные и равные нулю. Используя оператор цикла, составить программу, которая должна напечатать только те числа из массива, которые образуют убывающие последовательности.
Читал здесь и здесь честно говоря ничего не понял. Может подскажите что дальше делать. Вот что сам начал делать.
program z_4;
type masiv=array[1..10]of integer;
var
p:masiv;
max,i,n,MaxInd:integer;
begin
writeln('Ввдете количество цифр в массиве ');
readln(n);
randomize;
for i:=1 to n do
begin
p[i]:=random(10);
write(p[i],' ');
end;
max:=1;
for i:=1 to n do
begin
if p[i]>max then max:=p[i];{Нахожу наибольшее число}
MaxInd:=i;
end;
for i:=MaxInd to n do{Начинаю с наибольшего числа сравнивать}
if p[MaxInd]>p[i+1] then
writeln('Число', p[i]);
end.

Хотелось бы что бы получилось примерно так
Массив 9 6 4 8 6 2 7 5
Выводимый результат 9 8 7 5