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

Вот пример кода в Pascal ABC:

program Decision;
var
text, symbols: string;
i: integer;
c: char;
begin
symbols := '';
Writeln('Введите строку текста: ');
Readln(text);
for c := 'А' to 'Я' do
for i := 1 to Length(text) do
if (text[i] = c) then
symbols := symbols + text[i];
Writeln('Количество русских прописных букв в тексте: ', Length(symbols));
Writeln('Список русских прописных букв в тексте: ', symbols);
Readln;
end.