В введенном предложении удалить все повторяющиеся слова

[Алена]

В введенном предложении удалить все повторяющиеся слова

[mutabor]

На чем делать?

[Abbatik]

uses crt;
var s:string;
ss:array[1..100] of string;
k,j,n,i:integer;
begin
clrscr;
write('vvedite predlogenie...');
readln(s);
for i:=1 to length(s) do begin
if s[i]=' ' then k:=k+1 else ss[k]:=ss[k]+s[i];
end;
for i:=1 to k do begin
for j:=1 to k do begin
if (ss[i]=ss[j]) and (i<>j) then ss[j]:='';
end;
end;
for i:=1 to k do begin
write(ss[i],' ');
end;
readkey;
end.

слова разделять пробелами

[mutabor]

Функция DeleteWords удаляет из предложения повторяющиеся идущие подряд слова.
Параметры:
s: string; //исходная строка
signs: boolean; //необязательный параметр, если True будут учитываться синтаксические знаки ("мама," = "мама")
caps: boolean; //необязательный параметр, если True будет учитываться регистр букв ("Мама" = "мама")

Использование:
Edit2.Text:=DeleteWords(Edit1.Text) ;
Edit2.Text:=DeleteWords(Edit1.Text, True); //учитывать знаки
Edit2.Text:=DeleteWords(Edit1.Text, False,True); //учитывать регистр
Edit2.Text:=DeleteWords(Edit1.Text, True,True); //учитывать знаки и регистр

function DeleteWords(s: string; signs: boolean = false;
  caps: boolean = false): string;
var
i,w,last: integer;
words: array of string;
begin
last:=-1;
w:=0;
SetLength(words,w+1);

for i:=1 to Length(s) do
  begin
  if s[i]<>' ' then
    begin
    if signs then
      begin
      if not (s[i] in [',', '.', '!', '?']) then
        begin
        words[w]:=words[w]+s[i];
        last:=i;
        end else last:=i;
      end
    else
      begin
      words[w]:=words[w]+s[i];
      last:=i;
      end;
    end
  else
    if last = i-1 then
      begin
      inc(w);
      SetLength(words,w+1);
      end;
  end;

for i:=0 to w-1 do
  if caps then
    begin
    if AnsiLowerCase(words[i]) = AnsiLowerCase(words[i+1]) then words[i]:='';
    end
  else
    if words[i]=words[i+1] then words[i]:='';

for i:=0 to w do
  begin
  Result:=Result + words[i];
  if (i <> w)and(words[i]<>'') then Result:=Result+' ';
  end;
end;

[Alex21]

Дано - Edit1, Edit1

результат - Edit1Edit1

if (s[i]<>',')and(s[i]<>'.')and(s[i]<>'!')and(s[i]<>'?') then

лучше:
if not (s[i] in [',','.','!','?']) then

[mutabor]

Спасибо за теситирование, принимается
Код поправил.