Сосчитать сколько предложений в тексте оканчиваются на "." "?" "!" - Pascal

В заданном тексте подсчтитать сколько предложений оканчиваются на "." "?" "!".

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

const zn=['.','?','!'];
......................
k:=0;
for i:=1 to length(s) do
if (s[i] in zn) and not(s[i] in zn) then k:=k+1;

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

В данном коде:

Создается константа zn, которая содержит символы . ? !.
Инициализируется переменная k со значением 0.
Происходит цикл по каждому символу строки s.
Если текущий символ является одним из символов из константы zn и следующий символ не является одним из символов из константы zn, то переменная k увеличивается на 1.
По завершению цикла, значение переменной k будет содержать количество предложений в тексте, оканчивающихся на . ? !.