Сортировка массива Опции

[Amir]

Имеется массив А из 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