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

Question

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

Answer 1

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.

Answer 2

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.