Строки, подсчитать количество различных букв... Опции

[-Евгений-]

Строка символов представляет собой предложение,написанное на русском языке.предложение имеет длину не более 100 символов. Подсчитать количество различных букв ,которые входят в это предложение.

Пример работы:

Введите строку:
Привет

ответ:

Количество различных букв в предложении-6
в-1 е-1 и-1 П-1 р-1 т-1

uses crt;
var
  i: integer;
 st:string;
 c:char;
 
procedure vvod_s(var s:string);
begin
  WriteLn('Введите строку слов,признак окончания-точка:');
  ReadLn(s);
end;

Begin
 clrscr;
  vvod_s(st);
 ...
End.

а что мне дальше делать,подскажите пожалуйста!!!

[Needhelp]

В FAQ есть Строки "Сколько раз слово w встречается в строке s ?" в твоем случае БУКВА...

[volvo]

Задача на обработку текста
, но печатать так:

 for ch := 'А' to 'я' do
   if cnt[ch] > 0 then writeln(ch, ' - ', cnt[ch]);

[Гость]

спасибо.разобрался,всё работает!