Вводится текст. Конец ввода F6. Найти количество заглавных букв. (Паскаль)

[Casper098]

Вводится текст. Конец ввода F6.Найти количество заглавных букв.

Вот работающая программа

Program 123;
Uses crt;
Var
C:Char;
I:integer;
Begin
i:=o;
writeln (‘vvedite text’);
C:=readkey;
While c<> # 64 do
Begin 
Write (c);
If c in [‘A’..’Z’] then
i:=i+1;
c:=readkey;
end;
writeln;
write (‘v texte ‘,I,’ zaglavnix bykv’);
readln;
end.

вот здесь мы вроде находим количество заглавных букв
If c in [‘A’..’Z’] then
подскажите,как по другому найти количество заглавных букв.
как найти не через множество?
Ну что ребят никто не знает чтоли?


_________
1) Неужели трудно ПРАВИЛЬНО придумать и написать название темы?!
Название темы должно адекватно отражать суть решаемой задачи/проблемы!

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Mad_Cat]

проверяй через код ascii

[TinMan]

Сообщение от Casper098

If c in [‘A’..’Z’] then
подскажите,как по другому найти количество заглавных букв.
как найти не через множество?

if (c>='A’) and (c<=’Z’) then