Напишите алгоритм, который находит и выводит номер наибольшей возрастающей последовательности подряд идущих элементов

const N=20;
var b: array [1..N] of integer;
    i, c, lmax, r, smax: integer;
begin
  for i:=1 to N do readln(b[i]);
  ...
end.

const n=20;
var a:array[1..n] of integer;
      i,j,k,p1,max:byte;
begin
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
read(a[i]);
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
{Поиск позиции и длины максимальной цепи}
max:=0;{Первоначальные значения}
i:=2;p1:=0;
while i<=n do
if a[i]>a[i-1] then
  begin
   k:=1;j:=i;
   while (j<=n)and(a[j]>a[j-1])do
    begin
     inc(j);
     inc (k); {Если возрастает - наращиваем счётчик}
    end;
   if k>max then
    begin
     max:=k;
     p1:=i-1;
    end;
   i:=i+k;{перепрыгиваем}
  end
else inc(i);
writeln; {Выводим результат}
if max=0 then write('Участков возрастания нет!')
else
 begin
  writeln('Длина наибольшей цепочки возрастания=',max);
  writeln('Индекс первого элемента=',p1);
 {for i:=p1 to p1+max-1 do
  write (a[i],' '); //сама цепочка если нужно}
 end;
end.

const N=20;
var b: array [1..N] of integer;
    i, c, lmax, r, smax: integer;
begin
  for i:=1 to N do read(b[i]);
  lmax:=1;
  c:=1;
  for i:=2 to n do
   if b[i]>b[i-1]then inc(c)
     else
       begin
     if c>lmax then
       begin
       lmax:=c;
       r:=i-1;
       end;
     c:=1;
     end;
  if c>lmax then
  begin
  lmax:=c;
  r:=n;
  end;
if lmax>1 then begin  
writeln('dlina naibolshey vozr.posl=',lmax);
  writeln('nomer nachala=',r-lmax+1);
  writeln('nomer konca=',r);
end
else writeln('vozr. net');
  readln;
  end.