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

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