Дана строка символов, посчитать сколько раз встречается символ + и символ * - Pascal ABC

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

Дана строка символов, посчитать сколько раз встречается символ "+" и символ "*". Помогите пожалуйста.

Решение задачи: «Дана строка символов, посчитать сколько раз встречается символ + и символ *»

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

uses crt;
var a: string;
    i,j,k: integer;
begin
writeln('Введите строку:');
 readln(a);
 for i:=1 to length(a) do
  begin
   if a[i]='+' then
    inc(j);
   if a[i]='*' then
    inc(k);
  end;
  writeln('+ встречается ',j,' раз');
  write('* встречается ',k,' раз');
end.

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

Вводится строка с помощью функции readln(a).
Используется цикл for i:=1 to length(a) do, который проходит по каждому символу строки.
Если символ равен +, то увеличивается значение переменной j на 1.
Если символ равен *, то увеличивается значение переменной k на 1.
По завершении цикла выводится количество вхождений символа + - writeln('+ встречается ',j,' раз').
Выводится количество вхождений символа * - write('* встречается ',k,' раз').