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

[Анютка]

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

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

[klem4]

uses crt;
var
   c : array[char] of byte;
   ch: char;
   s : string;
   i : integer;

begin

   clrscr;

   write('s='); readln(s);

   for i := 1 to length(s) do
    for ch := #32 to #255 do
     if s[i]=ch then
      inc(c[ch]);

   for ch := #32 to #255 do
    if c[ch]<>0 then
     writeln(ch,'  ',c[ch]);

   readln;

End.

Volvo же давал тебе ссылку ... там поправить то оставалось чуть-чуть