Помогите решить, я что-то туплю, Задачка Опции

[-Диман-]

Для каждого символа заданного текста указать, сколько раз он встречается(выводить не более 1-го раза) буду очень благодарен!!!

[Client]

А можно так, чтобы выводились значения только тех символов, которые есть.

при выоде добавь условие, оно будет таким

for c:='a' to 'z' do
   if a[c]>0 then
          write('  ',c,' = ',a[c]);

И не использовать eoln(input)-мы такую функцию не учили. Я думаю нужно использовать цикл For, оператор ord или что-то в этом духе.

For i:= 1 to n do
   begin
           read©;
           a[c]:=a[c]+1
   end;

Где n это заранее указанное число символов
Без массива тоже можно, но я напрочь забыл как сделать(