viết chương trình nhập vào một xâu S bất kỳ. Thông báo lên màn hình xâu con tăng S1 của xâu S có độ dài lớn nhất, trong trường hợp 2 xâu bằng nhau thì

Uses crt;
Var S,Maxs,St:String; Max,I,J:Integer;
function Kt(S:String):Boolean;
Var i:Byte;
begin kt:=true;
 For i:=1 to length(s)-1 do 
 If Ord(S[i])>Ord(S[i+1]) then exit(false);
end;
begin
 Clrscr; Max:=-1;
 Write(‘S: ‘);Readln(S);
 For i:=1 to length(s) do 
  begin
   St:=”;
    For j:=i to length(s) do 
     Begin 
     St:=St+S[j];
     If (Kt(st))And(Max<Length(St)) then 
     Begin
     Max:=Length(st);
     Maxs:=St;
     end;
  end;
  end;
Writeln(Maxs,’ do dai lon nhat la: ‘,max);
readln
end.