Прописные буквы в строке, Как посчитать Опции

[Вася]

Как посчитать в строке количество каждой латинской и русской прописной (или строчной) буквы?

[klem4]

var
count2: array ['А'..'Я'] of integer;
count1: array ['A'..'Z'] of integer;
...
for i := 1 to length(s) do
begin
count1[s[i]]:=inc(count1[s[i]]);
count2[s[i]]:=inc(count2[s[i]]);
end;

а при таком раскладе ужасный range checking error мы разьве не получим ?! Да это ведь вообще компилироваться не будет!