Определить наибольшее количество элементов в возрастающей серии

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

const nmax=20;
var  n,a,b,i,k,mx:byte;
begin
repeat
write('Ввелите количество чисел n>1 n=');
readln(n);
until n>1;
writeln('Введите ',n,' целых чисел, в том числе возрастающие участки:');
readln(a);
mx:=0;
k:=1;
for i:=2 to n do
 begin
  readln(b);
  if b>a then inc(k);
  if(b<=a)or(i=n) then
   begin
    if k>mx then mx:=k;
    k:=1;
   end;
  a:=b;
 end;
writeln('Длина максимальной последовательности возрастающих чисел=',mx);
end.

const nmax=20;
var  a,b,i,k,mx:byte;
begin
repeat
write('Введите целое число, отличное от 0 a=');
readln(a);
until a<>0;
k:=1;
writeln('Введите целые числа, в том числе возрастающие участки, окончание ввода 0:');
mx:=0;
repeat
 readln(b);
 if b>a then inc(k);
 if(b<=a)or(a=0) then
   begin
    if k>mx then mx:=k;
    k:=1;
   end;
  a:=b;
until b=0;
writeln('Длина максимальной последовательности возрастающих чисел=',mx);
end.