Cимволы из которых состоит текст

[pashka_dos]

Задача: вывести список различных символов из которых состоит текст.
Помогите пожалуйста (я хуже чем чайник). Заранее спасибо!

[Mad_Cat]

var s:string;
i:integer;
begin
readln(s);
for i:=0 to 255 do 
if (pos(chr(i),s)<>0) then write(chr(i),' ');
readln;
end.

[pashka_dos]

Сообщение от Mad_Cat

var s:string;
i:integer;
begin
readln(s);
for i:=0 to 255 do 
if (pos(chr(i),s)<>0) then write(chr(i),' ');
readln;
end.

Спасибо большое