Про множественный тип, ну как же Опции

[Анютка]

Вроде девушка я не тупая, но не могу понять
Условие:

Определить какие символы встречаются в строке и посчитать сколько раз встречается каждый из них. В алфавитном порядке вывести обнаруженные символы и кол-во их вхождений в строку.

[volvo]

program volvo;
var
  a : array[#0..#255] of byte;
  chars: set of char;

procedure count(s : string);
var i : integer;
begin
  for i := 1 to length(s) do begin
    inc(a[ s[i] ]); chars := chars + [s[i]];
  end;
end;

procedure WriteAr;
var i: char;
begin
  for i:=#0 to #255 do
    if i in chars then
      Writeln(i,'   -   ', a[i], ' раз ');
  readln;
end;

var b: string;
begin
  writeln('Введите строку: '); readln(B);
  chars := []; count (B);
  WriteAr;
  readln;
end.