символьная задача

[Chief]

Напечатать все символы, которые встречаются в введенном в режиме диалога пркдложении только один раз

[alex_fcsm]

var s:string;
    i:integer;
    q,q1:set of char;
    
begin
 q:=[];q1:=[];
 readln(s);
 for i:=1 to length(s) do
    if Upcase(s[i]) in q then q1:=q1+[Upcase(s[i])]
       else q:=q+[Upcase(s[i])];
for i:=1 to length(s) do
 if not (UpCase(s[i]) in q1) then write(s[i],' ');
end.