Поиск символов в тексте

[ksu25]

Тема: множества.
Дана последовательность символов. Напечатать все буквы, входящие в текст по одному разу.

[ОДИНОЧЕСТВО В СЕТИ]

вот для латиницы для русских по аналогии!

var st:array['a'..'z'] of Integer;
        c:char;
        s:string;
        i:integer;
   begin
 readln(s);
  for c:='a' to 'z' do
   st[c]:=0;
  for i:=1 to Length(s)do
    Inc(st[s[i]]);
   for c:='a' to 'z' do
   if  (st[c]<2) and (st[c]>0) then Writeln (c);
   Readln;
end.

[ksu25]

спасибо. сейчас буду набирать