function Substring (S:CharArray):integer;
var
   MaxLength, I, Count: integer;
begin
   MaxLength:=0; Count:=1;
   for I:=1 to 99 do
      if Smaller(S[I],S[I+1]) then
         Count:=Count +1;
      else
      begin
         if Count > MaxLength then
            MaxLength :=Count;
         Count :=1;
      end;     
      if Count > MaxLength then { בדיקת הרצף האחרון }
         MaxLength := Count;
      Substring:=MaxLength;
end;