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

[-Евгений-]

Строка символов представляет собой предложение,написанное на русском языке.предложение имеет длину не более 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.

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