Делфи.Написать функцию нахождения максимальной длины подпоследовательности значений массива,которые идут подряд и не увеличиваются

[Jane_Air]

Нужно написать функцию,которая находит максимальную длину подпоследовательности значений массива,которые идут подряд и не увеличиваются.Не могу понять что не так,как вызвать функцию в теле программы?и что неправильно,выводит всегда ноль.Помогите пожалуйста.


f

unction poslid(var m:mass;n:byte):byte;       {задача 1}
var pop,max,d,i:byte;
begin
  i:=1;d:=0; pop:=m[i];max:=1;
  for i:=1 to n do
    begin
      if m[i]<=pop then begin
                          d:=d+1;
                          if max<d then max:=d
                        end
                   else d:=0;
      pop:=m[i];
    end;
    poslid:=max;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[GetMax]

Const
  NN = 10;
Type
  Mass = array[1.. NN] of Byte;
Var
  Ms : Mass;
  i : Byte;
  cnt : Byte;
Begin
  //заполнение массива Мs
  cnt := poslid(Ms, NN);
  Write(cnt);
End.