Определить процент звонких согласных букв в тексте и вывести их в обратном порядке - Pascal ABC

Формулировка задачи:

Работа с данными типа множество. Дан текст из строчных русских букв. Определить процент звонких согласных букв в тексте. Вывести звонкие согласные буквы, встречающиеся в тексте, в обратном порядке Пример Задание. Определить количество гласных и согласных букв в введенном предложении.

type Letters= set of ‘А’..’я’;
Var Glasn, Sogl: Letters;
Text: string;
I, G,S: byte;
begin
Glasn:=[‘A’,’a’,’Е’,’е’,’И’,’и’,’О’,’о’,’У’,’у’,’Э’,’э’,’Ю’,’ю’,’Я’,’я’]
Sogl:=[‘Б’..’Д’,’б’..’д’,’Ж’,’ж’,’З’,’з’,’К’..’Н’,’к’..’н’,’П’..’Т’,’п’..’т’,’Ф’..’Щ’,’ф’..
’щ’,’Ъ’,’ъ’,’Ь’,’ь’];
Readln(text);
G:=0; S:=0;
For i:=1 1 to Length(Text) do begin
if Text[i] in Glasn then G:=G+1;
if Text[i] in Sogl then S:=S+1; end;
writeln(G,S); end.

Решение задачи: «Определить процент звонких согласных букв в тексте и вывести их в обратном порядке»

Листинг программы

const zs=['б'..'д','ж','з','й','л','м','н','р'];
var s:string;
    m:set of char;
    i:byte;
    p:real;
    c:char;
begin
writeln('Введите строку, содержащую строчные русские звонкие согласные буквы');
readln(s);
m:=[];
p:=0;
for i:=1 to length(s) do
if s[i]in zs then
 begin
  p:=p+1;
  m:=m+[s[i]];
 end;
p:=p*100/length(s);
writeln('Процент звонких согласных=',p:0:2);
if m<>[] then
 begin
  writeln('Буквы в обратном порядке');
  for c:='р' downto 'б' do
  if c in m then  write(c);
 end;
end.

Объяснение кода листинга программы

В этом коде:

Создается константа zs, которая представляет собой набор звонких согласных букв в нижнем регистре.
Затем объявляются переменные: s (строка для ввода), m (множество символов для хранения звонких согласных), i (счетчик для цикла), p (процентная переменная), c (переменная-символ для проверки наличия в множестве).
Пользователю предлагается ввести строку, содержащую строчные русские звонкие согласные буквы.
Затем происходит инициализация множества m и переменной p значением 0.
В цикле происходит проверка каждого символа в строке на принадлежность к множеству звонких согласных.
Если символ является звонким согласным, то он добавляется в множество m и увеличивается значение переменной p.
После прохождения цикла, значение переменной p приводится к проценту от общего количества символов в строке и выводится на экран.
Если множество m не пустое, то выводится сообщение Буквы в обратном порядке и в обратном порядке выводятся все символы из множества m.