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

[Вася]

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

[volvo]

Ты не мог ли мне сказать как обойтись без множеств?

Вот так, например...

Var
  count: array[char] of integer;
...
for i := 1 to length(s) do inc(count[s[i]]);

(тебе же надо КАЖДОЙ, а ты считаешь ВСЕХ вместе... Вот с массивом - будет действительно каждой)

[Вася]

Я понял как это сделать для каждой прописной латинской, но что мне делать с русскими?

Код

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

Добавлено через 2 мин.
Я и сам был не против множеств, но всё дело в преподе.