Напишите программу, которая находит все символы в символьной строке, которые встречаются только один раз.

Входные данные
На вход программы подаётся символьная строка.

Выходные данные
Программа должна вывести все символы, которые встречаются в строке только один раз, в порядке возрастания их ASCII-кодов. Если таких символов нет, нужно вывести слово 'NO'.

Примеры
входные данные
asd12ad2
выходные данные
1s
Pascal ABC 1.8 с использованием множеств

var uniq: Set of Char;    used: Set of Char;    s: string;    i: integer;    done: boolean;    c: char;beginuniq := [];used := [];readln(s);for i := 1 to length(s) do  if not (s[i] in used) then  begin    include(uniq, s[i]);    include(used, s[i]);  end  else  begin    exclude(uniq, s[i]);  end;done := False;for c := #0 to #255 do  if (c in uniq) then   begin    done := True;    write(c);  end;if not done then  write('NO');writeln;end.