Множества

[Chowder]

Пусть дан текст. Распечатайте те буквы, которые встречаются в каждом слове текста только один раз.
Например: Вводим рррарр лллдллл ,а вывод ад

[Streletz]

Свои попытки были?

[Stilet]

Попробую намекнуть: http://www.programmersforum.ru/showp...10&postcount=6

[Chowder]

var 
 i: integer;
 s,st: string;
 ws: set of Char;

begin
writeln('Введите текст');
 begin
   Readln(s);
    st:='';
     for i:=1 to Length(s) do
   begin
    if not (s[i] in ws) and (s[i]<>' ') then
    begin
    if s[i]<>' ' then ws:=ws+[s[i]];
     st:=st+s[i];
    end 
    else
     begin
       Write(st);
         st:='';
       end;
    end;
   Writeln;
 end;
      Readln;
end.