Отредактировать текст, удалив из него слова, которые уже встречались в нем раньше

[bingooo]

Отредактировать текст, удалив из него слова, которые уже встречались в нем раньше.

[sllh_111]

RUSt88 сори отнимаю у тебя работу))))))
собственно вот:

var
a:string;
b:array[1..100]of string;
c:array[1..100]of integer;
i,j,k:integer;
begin
writeln('vvedite stroku');
readln(a);
a:=' '+a;
for i:=1 to length(a)do
if a[i]=' 'then inc(k)else b[k]:=b[k]+a[i];
for i:= 1 to k do
for j:=1 to i do
if b[i]=b[j] then inc (c[i]);
 
for i:=1 to k do
if c[i]=1 then write(b[i],' ');
readln;
end.

для строки в которой слова разделены пробелом

хотя я думаю решение у тебя уже есть.