Задача с подсчетом количества букв - Free Pascal

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

Пользователь вводит предложение, которое заканчивается ".","!" или "?". Вывести количество символов "п" в предложении: если данный символ отсутствует, вывести количество разделительных знаков(пунктуации). Нельзя использовать: стандартные процедуры и функции (с модулей FPC).

Решение задачи: «Задача с подсчетом количества букв»

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

var
  s: string;
  i, k, kz: integer;
 
begin
  read(s);
  for i := 1 to length(s) do
    if s[i] = 'п' then inc(k) else if (s[i] = ',') or (s[i] = '.') or (s[i] = '?') or (s[i] = '!') then inc(kz);
  if k <> 0 then write(k) else write(kz);
end.

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

Объявлены переменные: s - строка (строковый тип данных) i, k, kz - целочисленные переменные (тип данных integer)
С помощью функции read(s) вводится строка s
В цикле for перебираются все символы строки s
Если символ равен 'п', то увеличивается значение переменной k на 1
Если символ равен запятой, точкам, вопросительному или восклицательному знакам (',', '.', '?', '!'), то увеличивается значение переменной kz на 1
После окончания цикла проверяется условие: если k не равно 0, то выводится значение переменной k, иначе выводится значение переменной kz
Код завершается