Задача на множества (Pascal)

[Ziner_Fisher]

Помогите пожалуйста!
Надо использовать
Type text=set of

[Mad_Cat]

var
__:set of char;
___:integer;
____,_____:string;
begin
Readln(____);
__:=[];
for ___:=1 to length(____) do
begin
if (____[___] in __) and (pos(____[___],_____)=0)
then _____:=_____+____[___];
if not(____[___] in __)
then __:=__+[____[___]];
end;
writeln(_____);
end.

мама мыла раму мылом
ма ыл

[Serge_Bliznykov]

так устроит?

type TTextSet = set of char;
var
  Chars, DublicateChars : TTextSet;
  ch : char;
begin
   Chars := [];
   DublicateChars := [];

   Read(ch);
   while ch<>'.' do begin
      if not ch in Chars then Include(Chars, ch)
      else {значит символ уже был ранее} Include(DublicateChars, ch)
      Read(ch)
   end;
   Readln;

   {вывод всех повторящихся в алфавитном порядке}
   WriteLn('В тексте были следующие повторящиеся символы (в алфавитном порядке) :')
   for ch:=#0 to #255 do
      if ch in DublicateChars then Write(ch,' ');
   WriteLn;

   WriteLn('Done! press enter to exit...');
   Readln;
end.

p.s. не проверял...


UPDATE
Mad_Cat, красотища!!