Подсчитать, сколько раз среди заданных символов встречаются '+' и '*' - Pascal ABC

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

Даны натуральное число n, символы s1,..., sn. Подсчитать сколько раз среди данных символов встречается символ + и сколько раз символ *.

Решение задачи: «Подсчитать, сколько раз среди заданных символов встречаются '+' и '*'»

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

var n,i,kp,kz:integer;
    c:char;
begin
write('Количество символов n=');
readln(n);
kp:=0;
kz:=0;
for i:=1 to n do
 begin
  write('Символ ',i,': ');
  readln(c);
  if c='+' then inc(kp)
  else if c='*' then inc(kz);
 end;
writeln('Знаков + = ',kp);
writeln('Знаков * = ',kz)
end.

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

Создаются переменные n, i, kp и kz, которые будут использоваться для подсчета количества символов '+' и '*'.
Выводится запрос на ввод количества символов n.
Переменные kp и kz инициализируются нулем.
Запускается цикл for, который будет выполняться от 1 до n (количество введенных символов).
Внутри цикла выводится запрос на ввод символа i.
Если символ равен '+', то значение переменной kp увеличивается на единицу.
Если символ равен '*', то значение переменной kz увеличивается на единицу.
После выполнения цикла выводится количество знаков '+', а затем количество знаков '*'.