Дан одномерный массив целых чисел, определить число элементов самой длинной, упорядоченной по возрастанию цепочки — Pascal(Паскаль)

uses crt;
const n=50;
var a:array[1..n] of word;
    m,i,j,k,i1,ip,max:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',n,' m=');
readln(m);
until m in [1..n];
writeln('Введите элементы массива:');
for i:=1 to m do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to m  do
write(a[i],' ');
writeln;
writeln;
i:=2;max:=0;
while i<=m do
if a[i]>=a[i-1] then
  begin
   k:=1;j:=i;
   while (a[j]>=a[j-1])and(j<=m) do
    begin
     j:=j+1;
     k:=k+1;
    end;
   if k>max then max:=k;
   i:=i+k;
  end
else i:=i+1;
writeln('Наибольшая цепочка подряд идущих элементов=',max);
readln
end.