Дана последовательность слов; между соседними словами — запятая, за последним словом — точка. Напечатать все слова, которые встречаются в последовательности по одному разу — Pascal(Паскаль)

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