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

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