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

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.