Удалить слова, у которых нет повторяющихся букв

[Odent]

Помогите с решением данной задачи на Паскале: Дан текст. Удалить слова, у которых нет повторяющихся букв.

[Stilet]

Твои попытки увидеть можно?

[newerow1989]

Удалить слова, у которых есть повторяющиеся буквы

var s:string;
    i0,i1,j,k:integer;
    del:boolean;
begin
   s:='mama myla ramy i upala';//Readln(s);
   i0:=1;
   Repeat
      i1:=i0;
      del:=false;
      For j:=i0 to Length(s) do
         If s[j]=' ' then
            Break else
            i1:=j;
      For j:=i0 to i1 do
         For k:=j+1 to i1 do
            If s[j]=s[k] then
            begin
               del:=true;
               Break;
            end;
      If del then
         Delete(s,i0,i1-i0+2) else
         i0:=i1+2;
   Until i0>=Length(s);
   Writeln(s);
   Readln;
end.

Удалить слова, у которых нет повторяющихся букв

var s:string;
    i0,i1,j,k:integer;
    del:boolean;
begin
   s:='mama myla ramy i upala';//Readln(s);
   i0:=1;
   Repeat
      i1:=i0;
      del:=true;
      For j:=i0 to Length(s) do
         If s[j]=' ' then
            Break else
            i1:=j;
      For j:=i0 to i1 do
         For k:=j+1 to i1 do
            If s[j]=s[k] then
            begin
               del:=false;
               Break;
            end;
      If del then
         Delete(s,i0,i1-i0+2) else
         i0:=i1+2;
   Until i0>=Length(s);
   Writeln(s);
   Readln;
end.

Сойдет?

[Arigato]

В качестве альтернативы:

var
  s: string;
  i, p: integer;
  del: boolean;
  c: set of char;

begin
  s:='mama myla ramy i upala';//Readln(s);
  p:=length(s);
  del:=true;
  c:=[];
  for i:=p downto 0 do begin
    if (i=0) or (s[i]=' ') then begin
      if del then delete(s,i+1,p-i+1);
      p:=i-1;
      del:=true;
      c:=[];
    end else begin
      if s[i] in c then del:=false;
      c:=c+[s[i]];
    end;
  end;
  writeln(s);
  readln;
end.