Определить, сколько в строке заданных символов - Pascal

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

Дана строка. Определить, сколько в ней символов *, ;, :.

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

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

const
    mn: Set Of Char = ['*', ';', ':'];
var
    s: String;
    i, count: Byte;
begin
    Write('Input string of text: '); ReadLn(s);
    count := 0;
    for i := 1 to Length(s) do
        if (s[i] in mn)
        then
            Inc(count);
    Write('count=', count);
end.

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

В начале объявляются три переменные: mn, s и i. Переменная mn представляет собой множество символов, которые нужно проверить на наличие в строке. Переменная s используется для хранения входной строки, а переменная i используется для итерации по символам строки.
Затем идет команда ReadLn(s), которая считывает ввод пользователя и сохраняет его в переменную s.
Далее объявляется переменная count типа Byte, которая будет использоваться для подсчета количества символов из множества mn в строке s.
Затем идет цикл for, который начинается с i = 1 и продолжается до Length(s). Внутри цикла происходит проверка, является ли текущий символ s[i] одним из символов из множества mn. Если да, то значение переменной count увеличивается на 1.
После завершения цикла выводится значение переменной count с помощью команды Write.
Код завершается без использования функции Close.