[Pascal] програма на обработку символьной информации

var
  s,t: string;
  i: integer;
  mn: set of char;
begin
  readln(s);
  Repeat
    if pos(' ', s)=0 then t := s else {берём слово}
     t := copy(s, 1, pos(' ', s)-1);

    mn := [];
    for i:=1 to length(t) do {проверяем символы на предмет одинаковости}
     if not (t in mn) then
      mn := mn + [t]
     else break;
    if i=length(t)+1 then writeln(t);

    delete(s, 1, length(t)+1);
  Until s = '';
  readln;
end.