паскаль... множини

[Богданна]

Дано непусту послідовність символів. Необхідно побудувати та надрукувати множину, елементами якої є цифри від 0 до 9, що зустрічаються у послідовності.

[Serge_Bliznykov]

языком форума является русский язык.

[Богданна]

Есть непустая последовательность символов. Необходимо построить и распечатать множество, элементами которой являются цифры от 0 до 9, встречающихся в последовательности.

[Mad_Cat]

var s:string;i:byte;ic:char;
buf:set of char;
begin
readln(s);
buf:=[];
For i:=1 to length(s) do
if s[i] in ['0'..'9'] then buf:=buf+[s[i]];
for ic:='0' to '9' do
if ic in buf then wtite(' ',ic);
readln
end.