Подсчитать количество заглавных букв в английском алфавите в Паскале

Var

s:string;

i, n:integer;

begin

Write ('Введите текст: ') ; Readln (s) ;

for i:=1 to Length (s) do

if s[i] in ['A' ... 'Z'] then Inc (n) ;

Writeln ('Найдено заглавных букв - ', n)

end.

Пример

Введите текст: London is the capital of Great Britain

Найдено заглавных букв - 3