Подсчёт символов в массиве

[evg_m]

delphi богатый язык.
Индексация в массиве может задаваться и символьная. ['A'..'Z']

var
  a: array['A'..'Z'] of integer;
  j: char; .// переменная цикла должна быть одного типа с индексом
  i: integer;

for j:='A' to 'Z' do
 a[j]:=0; //чначала заполнить 0

for i:=1 to length(mas) do
  a[mas[i]]:=a[mas[i]]+1;//считаем

[Pecho]

andrewpalkin, Utkin, я не программёр, знаю Delphi на уровне неуверенного пользователя, просто когда возникает необходимость с помощью программки что-то рассчитать, программирую
Спасибо за помощь

[Pecho]

evg_m, спасибо