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

uses crt;
var s:string;
    i:byte;
    f:boolean;
begin
writeln('Введите слово латинскими буквами');
read(s);
f:=true;
i:=1;
while(i<length(s))and f do
if UpCase(s[i])>UpCase(s[i+1]) then f:=false
else i:=i+1;
if f then write('Буквы по алфавиту')
else write('Буквы не по алфавиту');
end.

f:=true;//считаем что по алфавиту
i:=1;//начнем с первой буквы
while(i<length(s))and f do//пока не предпоследняя и по алфавиту идем
if UpCase(s[i])>UpCase(s[i+1]) then f:=false//если очередная буква в верхнем регистре 
//больше(дальше по алфавиту) чем следующая тоже в верхнем регистре, значит не по алфавиту, меняем флаг и выходим из цикла
else i:=i+1;//иначе дальше
if f then write('Буквы по алфавиту')//результат
else write('Буквы не по алфавиту');

uses crt;
const alf='АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя';
var s:string;
    i:byte;
    f:boolean;
begin
writeln('Введите слово русскими буквами');
read(s);
f:=true;
i:=1;
while(i<length(s))and f do
if pos(s[i],alf)>pos(s[i+1],alf) then f:=false
else i:=i+1;
if f then write('Буквы по алфавиту')
else write('Буквы не по алфавиту');
end.