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

var i:integer;
s,s2:string;
BEGIN
s2:='';
Readln(s);
For i:=1 to Length(s) do
  IF (ord(s[i])>=ord('a')) and (ord(s[i])<=ord('z')) THEN
  s2:=s2+s[i];
  Writeln(s2);
For i:=1 to Length(s2)-1 do
  IF s2[i]>s2[i+1] THEN break;
IF i<Length(s2)-1 THEN Writeln(i+1)
   ELSE IF s2[Length(s2)]<s2[Length(s2)-1] THEN Writeln (Length(s2))
        ELSE Writeln ('0');
END.

var
  buf:string;
  i,n:integer;
begin
  readln(buf);
  n:= 0;
  for i:= 2 to Length(buf) do begin
      if buf[i-1] <> ' ' then
        if buf[i] in ['a'..'z'] then begin
          if Ord(buf[i]) < Ord(buf[i-1]) then begin
            n:= i;
            break;
          end;
        end else if buf[i] in ['A'..'Z'] then begin
          if Ord(buf[i]) < Ord(buf[i-1]) then begin
            n:= i;
            break;
          end;        
        end;
  end;
  writeln(n);
end.

var
  buf:string;
  i,n:integer;
begin
  readln(buf);
  n:= 0;
  for i:= 1 to Length(buf) do begin
    if buf[i] in ['A'..'Z'] then
      buf[i]:= lowerCase(buf[i]);  
    if i > 1 then
      if (buf[i] in ['a'..'z']) and (buf[i-1] in ['a'..'z']) then 
        if Ord(buf[i]) < Ord(buf[i-1]) then begin
          n:= i;
          break;
        end;
  end;
  writeln(n);
end.