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

[Вася]

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

[volvo]

Вот объясни мне, почему ты все время разбиваешь русские и латинские символы? Это что, так теперь учат? Чтобы циклов больше было, что-ли? Или чтобы свалить тебя было легче?

const
  len = 33 + 26;
  alpha = 'АБВГДЕ...ЮЯABCDEF ... YZ'; { всего 33 + 26 символов }

var
  count: array[0 .. len] of integer;
...
  for i := 1 to length(s) do begin
    inc(count[pos(s[i], alpha)]);
  end;
...

[Вася]

Так, если делать твоим простым способом, то всё прекрасно до тех пор пока не возникает один вопрос: как вывести теперь мне кол-во букв в порядке частоты появления? И ещё я не понимаю почему вот здесь 0, а не 1?

Код

...
var
  count: array[0 .. len] of integer;
...