Не работает программа

@ktotonokto · Регистрация: 22.10.2013

Author24 — интернет-сервис помощи студентам

Мне была дана такая задача: "Дан текст. Напечатать те слова, в которых нет повторяющихся букв."
Решить её я попытался следующим способом, но программа, которую я написал, не работает по неясной для меня причине. Нужна помощь.

Pascal

  var s,r:string;
      i,c,p:integer;
begin
  writeln('Text: ');
  readln(s);
  repeat
    p:=pos(' ',s);
    c:=0;
    for i:=1 to p-2 do
      if s[i]=s[i+1] then inc(c);
    if c=0 then begin
      for i:=1 to p do
        r:=r+s[i];
    end;
    delete(s,1,p);
  until length(s)=0;
  writeln('Result: ');
  writeln(r);
  readln
end.

И вот ещё один вариант программы, который тоже не работает:

Pascal

  var s:string;
      i,c,q,p:integer;
begin
  writeln('Text: ');
  readln(s);
  p:=1;
  repeat
    c:=0;
    for i:=p to length(s) do begin
      q:=p;
      p:=pos(' ',s);
    end;
    for i:=q to p-2 do
      if s[i]=s[i+1] then inc(c);
    if c>0 then delete(s,q,p);
  until pos(' ',s)=length(s);
  writeln(s);
  readln
end.

	16.12.2013, 03:14