Удалить из текста элементы множества - Pascal ABC

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

Дан текст, который состоит из слов. Слова в тексте отделяются одно от другого символом ‘!’. Подсчитать количество букв в тексте, количество слов в тексте и удалить из текста элементы множества ['g', 't', 'p', 'u'].

Решение задачи: «Удалить из текста элементы множества»

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

const bk=['A'..'Z','a'..'z','А'..'я','Ё','ё'];
      mn=['g','t','p','u'];
var s:string;
    i,kb,ks:integer;
begin
writeln('Введите строку из слов, разделенных символом !');
readln(s);
kb:=0;
ks:=1;
for i:=1 to length(s) do
if s[i] in bk then inc(kb) else if s[i]='!' then inc(ks);
writeln('Количество букв=',kb);
writeln('Количество слов=',ks);
for i:=length(s) downto 1 do
if s[i] in mn then delete(s,i,1);
writeln('Удаление символов множества {g,t,p,u}');
write(s);
end.

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

Объявлены константы bk и mn, которые содержат соответствующие множества символов.
Объявлена переменная s типа string, которая будет использоваться для хранения введенной строки.
Объявлены переменные i, kb и ks типа integer, которые будут использоваться для подсчета количества букв и слов в строке.
В цикле for перебираются все символы в строке s.
Если символ является буквой из множества bk, то увеличивается счетчик kb.
Если символ равен '!', то увеличивается счетчик ks.
После цикла выводятся значения счетчиков kb и ks.
В обратном цикле for перебираются все символы в строке s в обратном порядке.
Если символ является буквой из множества mn, то он удаляется из строки s.
Выводится сообщение о удалении символов множества {g,t,p,u}.
Выводится измененная строка s.