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

(a[i]>a[i-1) and(a[i]>a[i+1]);

uses crt;
const n=5;
      mmax=20;
type mas=array[1..mmax] of integer;
procedure vvod(var a:mas;var m:byte;k:byte);
var i:byte;
begin
writeln('Массив ',k);
repeat
write('Размер массива до ',mmax,' m=');
readln(m);
until m in [1..mmax];
writeln('Введите элементы массива, в том числе пилообразные участки:');
for i:=1 to m do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
end;
procedure vyvod(a:mas;m,k:byte);
var i:byte;
begin
writeln('Массив ',k);
for i:=1 to m do
write(a[i],' ');
writeln;
end;
procedure pila(a:mas;m:byte);
var i,j,k,mx,imx,max:byte;
begin
i:=2;mx:=0;imx:=0;max:=0;
while i<m do
if (a[i]>a[i-1])and(a[i]>a[i+1]) then
  begin
   j:=i;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;
     imx:=i-1;
    end;
   i:=i+2*k+1;
  end
else i:=i+1;
if max=0 then write('Нет пилоообразных участков!')
else
 begin
  writeln('Максимальная пилообразная последовательность=',max);
  for i:=imx to imx+max-1 do
  write(a[i],' ');
 end;
writeln;
end;
var x:mas;
    i,m:byte;
begin
clrscr;
for i:=1 to n do
 begin
  vvod(x,m,i);
  vyvod(x,m,i);
  pila(x,m);
 end;
readln
end.