Дана последовательность, содержащая от 1 до 10 слов, в каждой из которых от 1 до 5 строчных латинских букв, между соседними словами-запятая, за последним словом-точка. Напечатать: все слова,которые встречаются в последовательности по одному разу- Pascal(Паскаль)

program asd;
uses crt;
var
  f,a,s,d:integer;
  q:array[1..10] of string;
  z:string;
begin
writeln('');
read(z);
s:=1;
repeat
 a:=pos(',',z);
 if a<>0 then begin
  q[s]:=copy(z,1,a-1);
  delete(z,1,a);
  s:=s+1;
 end;
until a=0;
q[s]:=copy(z,1,length(z)-1);
for d:=1 to s do begin
 for a:=1+d to s do if q[d]=q[a] then begin q[a]:='!';f:=1; end;
 if f=1 then q[d]:='!';
 f:=0;
end;
for a:=1 to s do if q[a]<>'!' then writeln(q[a]);
end.