Дана строка, посчитайте количество содержащихся в ней строчных русских букв, вывести их в алфавитном порядке, при помощи паскаль?

Пример кода на Pascal, который подсчитывает количество строчных русских букв в строке и выводит их в алфавитном порядке: www.cyberforum.ru

uses crt;  var k, i : byte; s : string; abc : set of char;  begin   clrscr;   k := 0;   {множество строчных букв русского алфавита}   abc := ['а'..'я', 'ё'];   write('введите строку: ');   readln(s);   for i := 1 to length(s) do     if s[i] in abc then inc(k);   writeln('в строке ', k, ' строчных букв русского алфавита');   repeat until keypressed end. 

Также на сайте «Ответы Mail.ru» представлен пример кода в Pascal ABC, который подсчитывает количество содержащихся в строке русских прописных букв и выводит их в алфавитном порядке. otvet.mail.ru