Поиск в строке Опции

[Lennon]

добрый день! Помогите пожалуйста решить такую задачу:
Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран.
Спасибо.

[Гость]

Пробовал:
var
s,s1:string;
i,j,k:integer;
begin
ClrScr;
WriteLn('BBEDITE CTPOKY');
ReadLn(s);
s1:='';
For i := 2 To Length(s) do s1 := s1 + s[i];
While s <> '' do
begin
For i := 1 to Length(s1) do
IF s[1] <> s1[i] Then WriteLn(s[1]);
delete(s,1,1);
delete(s1,1,1);

end;
Вот, ну это только одна из вариаций, а пробовал туеву хучу раз!