Подсчитать общее число вхождений символов +,*,- в строку - Free Pascal

Привет всем, помогите написать программу. Дана стока символов, подсчитать общее число вхождений символов +,*,- в строку.

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

n:=0;
For i:=1 to Length(S) do Inc(n,Ord(S[i] in ['+','*','-']));
Writeln(n);

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

Объявлена переменная n типа целое и инициализирована значением 0.
Задана строка S.
Выполняется цикл For от 1 до длины строки S.
Внутри цикла выполняется операция Inc над переменной n, которая увеличивает ее значение на 1.
Операция Ord используется для определения числового значения символа в таблице символов Паскаля.
В качестве аргумента для операции Ord используется выражение S[i] in ['+','*','-'], которое возвращает true, если символ S[i] равен одному из символов '+', '*' или '-'.
Результат операции Inc записывается в переменную n.
После завершения цикла выводится значение переменной n.