упорядочены ли буквы по алфавиту в задаче

[Анастасья]

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

[Mad_Cat]

f:=true;
for i:=1 to length(s)-1 do
if s[i]>s[i+1] then begin f:=false;break;end;
if f then {упорядочены буквы по алфавиту}
else {не упорядочены буквы по алфавиту}