Задача, Дан текст из строчных латинских букв... Опции

[matic]

Задача на множества в паскале.
Условие задачи:

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

Задача должна быть выполнена с помощью множеств в паскале.

Помогите пожалуйства. Заранее благодарю.

[klem4]

Так пойдет ?

var
  s: String;
  checked: Set of Char;
  i: Byte;

begin
  readln(s);

  checked := [];

  for i := 1 to Length(s) do
   if not(s[i] in checked) then begin
     include(checked, s[i]);

     if pos(s[i], copy(s, i + 1, 255)) > 0 then
      writeln('"' + s[i] + '"' + ' >= 2') else
       writeln('"' + s[i] + '"' + ' = 1');
   end;
end.

[Lapp]

Так пойдет ?

Мне кажется, если уж такое условие, лучше использовать только множества - то есть не использовать дополнительный поиск, типа Pos. Вот так (klem4, я использовал твой код для основы) :

var
  s: String;
  All,Once,MoreThenOnce: Set of Char;
  i: Byte;
  c: char;

begin
  readln(s);
  Once:=[];
  MoreThenOnce:=[];
  for i := 1 to Length(s) do
    if s[i] in All then Include(MoreThenOnce,s[i]) else Include(All, s[i]);
  Once:=All-MoreThenOnce;
  Write('Один раз входят: ');
  for c:='a' to 'z' do if c in Once then Write©;
  WriteLn;
  Write('Более одного раза входят: ');
  for c:='a' to 'z' do if c in MoreThenOnce then Write©;
  WriteLn;
  ReadLn
end.