Вообщем дана строка из строчных латинских букв, нужно напечатать в алфавитном порядке все буквы, входящие в текст по одному разу. Задачу надо решить с использованием типа данных Множество (set of). Вроде не сложно, но как делать - не понимаю. Может кто поможет с алгоритмом?

const
  s: string = 'this is a test';
var
  i: integer;
  s_one, s_more: set of char;

begin
  s_one := []; s_more := [];
  for i := 1 to length(s) do begin
    if not (s[i] in s_more) then
      if s[i] in s_one then begin
        s_one := s_one - [s[i]]; s_more := s_more + [s[i]];
      end
      else s_one := s_one + [s[i]];
  end;

  { Распечатываешь s_one  }

end.