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

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

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

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

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

{$MODE TP}
const
    alph: Set Of Char = ['A'..'Z', 'a'..'z', ',', '.', '!', '-', '?', ':', ';'];
var
    s: String;
    count, i: Byte;
begin
    count := 0;
    Write('Input string: '); ReadLn(s);
    for i := 1 to Length(s) do
        if Not (s[i] in alph)
        then
            Inc(count);
    Write('Result=', count);
end.

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

Объявляется константа alph типа Set Of Char и устанавливаются значения, содержащиеся в ней, включая латинские буквы в верхнем и нижнем регистрах, а также знаки препинания: запятая, точка, восклицательный знак, дефис, вопросительный знак, двоеточие и точка с запятой.
Объявляются переменные s типа String, count и i типа Byte.
Значение переменной count устанавливается равным 0.
Выводится сообщение Input string: и считывается введенная строка в переменную s.
В цикле от 1 до длины строки s:
- Если текущий символ строки s не содержится в множестве alph, то значение переменной count увеличивается на 1 с помощью функции Inc(count).
Выводится сообщение Result= и значение переменной count.