Найти в массиве длину К самой длинной "пилообразной" (зубьями вверх) последовательности идущих подряд чисел - Free Pascal

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