Делфи. При вводе с клавиатуры не работает.

[Jane_Air]

Нужно найти максимальную длину последовательности элементов массива,которые идут подряд и не увеличиваются.
Когда заполняется случайными числами,то работает правильно.
Когда с клавиатуры - всегда выдает ноль.
В чем ошибка?

program Zadacha_1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const Nmax=20;
type mass=array[1..Nmax] of integer;

procedure gMass1( var m:mass;   {заповнення випадковими числами}
                  var n:integer);
var i:integer;
begin
      randomize;
      n:=random(20);
      for i:=1 to n do
      m[i]:=10+random(21);
end;



procedure gMass2( var m:mass;             {заповнення з клавіатури}
                  var n:integer);
                  var i:integer;
begin
      repeat  writeln('vvedit n vid 1 do 10');
              readln(n);
      until (n>=1)and(n<=10);
      for i:=1 to n do begin
                           write('vvedit element z indexom ',i,' ');
                           readln(m[i]);
                       end;
end;



procedure outMass(const m:mass;n:integer);    {виведення на екран}
var i:integer;
begin
  for i:=1 to n do begin
                      write(m[i]);
                      writeln;
                   end;
end;



function poslid(var m:mass;n:integer):integer;
var pop,max,d,i:integer;
begin
  i:=1;d:=0; pop:=30;max:=0;
  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:=1;
      pop:=m[i];
    end;
    poslid:=max;
end;




var a,k,n,cnt:integer;m:mass;

begin
writeln('vuberit sposib zapovnen masuvy: vupadkovi chusla - vvedit 1');
writeln('                                z klaviatyru - bud-yake inshe shuslo');
readln(a);
if a=1 then begin
                gMass1(m,n);
                outMass(m,n);
            end
       else gMass2(m,k);
       writeln;
writeln;
cnt:=poslid(m,n);
writeln(cnt);
readln;

end.

[SaLoKiN]

    else gMass2(m,k);

вы передаете k, а потом

cnt:=poslid(m,n);

вызываете n.
поэтому зачем вам вообще k?
делайте так

       else gMass2(m,n);
       writeln;
writeln;
cnt:=poslid(m,n);

[Jane_Air]

Спасибо большое!))
Случайно видимо ошиблась...