Вывести на экран все слова, которые встречаются в последовательности только один раз. - Pascal ABC

Формулировка задачи:

У тексті поміж словами розташована кома, за останнім словом - крапка. Вивести на екран усі слова, що зустрічаються в послідовності лише один раз. Помогите сделать, очень нужно!Можно сразу готовую программу!

Решение задачи: «Вывести на экран все слова, которые встречаются в последовательности только один раз.»

Листинг программы

var a : array [1..100] of string;
    s, slovo : string;
    i, j, k : integer;
    b, c : boolean;
begin
  Write('Введите текст: ');
  Readln(s);
  c:=false;
  for i:=1 to Length(s) do
  begin
    if c=true then break;
    if (s[i]<>',') and (s[i]<>' ') and (s[i]<>'.')
    then slovo:=slovo+s[i]
    else begin
      for j:=1 to 100 do
      begin
        if a[j]=slovo
        then begin
          b:=true;
          break;
        end;
      end;
      for k:=1 to 100 do
      begin
        if (b=false) and (a[k]='')
        then begin
          a[k]:=slovo;
          slovo:='';
          break;
        end;
        if b=true then break;
      end;
      if s[i]='.' then c:=false;
    end;
  end;
  for i:=1 to 100 do Write(a[i],' ');
end.

Объяснение кода листинга программы

Ввод текста с клавиатуры.
Инициализация переменных: массива слов, булевых переменных c, b и переменной slovo.
Проверка каждого символа введенного текста. Если символ не является запятой, пробелом или точкой, то он добавляется в текущее слово.
Если текущее слово найдено в массиве слов, то переменная b устанавливается в true и цикл прерывается.
Если текущее слово не найдено в массиве слов и переменная b равна false, то текущее слово добавляется в массив слов.
Если текущий символ является точкой, то переменная c устанавливается в false.
После обработки всех символов, выводится на экран каждое уникальное слово из массива слов, разделенное пробелами.