Day con tang dai nhat

VCT nhập vào một dãy gồm nhiều số. Xuất ra mà nhình dãy con tăng dài nhất

program Day_con_tang_dan;
uses crt;
var j,i,kt,cs,max,n:integer;s:string;
a,b,c:array[0..100] of integer;
begin
clrscr;
write(`nhap n=`);readln(n);
for i:=1 to n do
begin
write(`a[`,i,`]=`); readln(a[i]);
end;
for i:=1 to n do
if a[i]>=a[i+1] then b[i]:=1 else b[i]:=0;
for i:=1 to n do
begin
kt:=1;
for j:=1 to n do
if (kt=1) and (b[j]=1) then c[i]:=c[i]+1 else kt:=0;
end;
max:=c[0];
for i:=1 to n do
if maxbegin
max:=c[i];
cs:=i;
end;
write(`day con giam dai nhat`);
for i:=cs to cs+max do
write(a[i]:5);
readln;end.