Дана последовательность слов в строке,напечатать все слова последовательности,которые встречаются 1 раз

var
a:string;
b:array[1..100]of string;
i,k,f,j:integer;
begin
readln(a);
a:=' '+a;
for i:=1 to length(a) do
if a[i]=' ' then k:=k+1
 else b[k]:=b[k]+a[i];
for i:=1 to k do
begin
f:=0;
for j:=1 to i do
if (i<>j)and (b[i]=b[j]) then f:=1;
if f=0 then write ( b[i],' ');
end;
readln;
end.

var
a:string;
b:array[1..100]of string;
i,k,f,j:integer;
begin
readln(a);//читаем строку из слов разделенных пробелами
a:=' '+a; //добавляем пробел в начало строки
for i:=1 to length(a) do//идем по строке
if a[i]=' ' then k:=k+1 //если пробел, новое слово
else b[k]:=b[k]+a[i];//иначе составляем его и пишем в массив b
for i:=1 to k do //все слова массива
 begin
  f:=0; //пусть его больше нет
  for j:=1 to i do //поверяем от 1 до этого слова
  if (i<>j)and (b[i]=b[j]) then f:=1;//если индексы разные а слово одно, меняем флаг
  if f=0 then write ( b[i],' '); //если флаг не меняли, выводим слово
 end;
readln;
end.