Вывести повторяющиеся буквы стринга в алфавитном порядке

Qage

Дан стринг из русских прописных букв. Вывести повторяющиеся буквы стринга в алфавитном порядке. Желательно с комментариями. Заранее спасибо!
1 ответ

Qage

Var
  c,c2 : Set of Char;
  s    : String;
  ch   : Char;
  i    : Byte;
 
Begin
  c:=[]; c2:=[];
  s:='абббвгддеёжзижклмнрропрстуф'; //Readln(s);
  For i:=1 to Length(s) do
    If s[i] in c then Include(c2,s[i]) else Include(c,s[i]);
  For Ch:='а' to 'я' do
    If Ch in c2 then Writeln(Ch);
end.