Pascal дан текст, состоящий из прописных букв, за которыми следует точка. определить, ли эти буквы по алфавиту?

Var s: string;
      i: integer;

begin
readln(s);
for I := 2 to length(s) do
  if s[I] < s[I - 1] then break;
if I = length(s) then
  writeln('yes')
else
  writeln('no');
end.

Var
   C,C2:char;
   i,B:integer;
Begin
B:=1;
Read(C);
C2:=C;
While C <> '.' do
   Begin
   if C2 > C then B:=0;
   C2:=C;
   Read(C);
   End;
Write(B <> 0)
End.