pascal ABC.

[alexandrkamarov1]

здравствуйте, есть задание:
В заданный непустой текст входят только цифры и буквы. Длина текста не более 12 символов.
Определить, удовлетворяется ли следующее свойство:
Текст содержит латинские буквы, упорядоченные в алфавитном порядке;

вот примерный код:

uses crt;
var p, s: char;
f: boolean;

begin
f := true;
s := pred('A');
write('vvedite tekst: ');
repeat
p := s;
read(s);
s := upcase(s);
if not((s in [#10, #13]) or ((s in ['A'..'Z']) and (s > p))) then f := false;
until not(f) or (s = #10);
readln;
if f then writeln('Ydovletv yslov') else writeln('He Ydovletv yslov');
readln
end.

меня интересуте вопрос, можно ли обойтись без "Pred('A')" и без "s := upcase(s)"