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

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.

if s[i]='.' then Break;

  if not (s[i] in [' ',',','.']) then

      for j:=1 to 100 do
        if a[j]=slovo then
          Break
        else if a[j]='' then begin
          a[j]:=slovo;
          Break;
        end;
      slovo:='';

const Delims=[' ',',','.']; n=100;
var
  a: array [1..n] of String;
  i, j: Integer;
  s, w: String;
begin
  Write('Введите текст: ');
  Readln(s);
  for i:=1 to Length(s) do begin
    if not (s[i] in Delims) then
      w:=w+s[i]
    else begin
      for j:=1 to n do
        if a[j]=w then Break
        else if a[j]='' then begin
          a[j]:=w; Break;
        end;
        w:='';
      end;
      if s[i]='.' then Break;
    end;
  for j:=1 to n do if a[j]<>'' then Write(' ',a[j]) else Break;
end.

const Delims=[' ',',','.']; n=100;
var
  a: array [1..n] of String;
  b: array [1..n] of Integer;
  i, j: Integer;
  s, w: String;
begin
  Write('Введите текст: ');
  Readln(s);
  for i:=1 to Length(s) do begin
    if not (s[i] in Delims) then
      w:=w+s[i]
    else begin
      for j:=1 to n do
        if a[j]=w then begin
          Inc(b[j]); Break;
        end else if a[j]='' then begin
          a[j]:=w; b[j]:=1; Break;
        end;
        w:='';
      end;
      if s[i]='.' then Break;
    end;
  for j:=1 to n do
    case b[j] of
      0: Break;
      1: Write(' ',a[j]);
    end;
end.

const Delims=[' ',',','.']; n=100;
var
  a: array [1..n] of record c: Integer; s: String; end;
  i, j: Integer;
  s, w: String;
begin
  Write('Введите текст: ');
  Readln(s);
  for i:=1 to Length(s) do begin
    if not (s[i] in Delims) then
      w:=w+s[i]
    else begin
      for j:=1 to n do
        if a[j].s=w then begin
          Inc(a[j].c); Break;
        end else if a[j]='' then begin
          a[j].s:=w; a[j].c:=1; Break;
        end;
        w:='';
      end;
      if s[i]='.' then Break;
    end;
  for j:=1 to n do
    case a[j].c of
      0: Break;
      1: Write(' ',a[j].s);
    end;
end.