Определить количество латинских букв 'c' в строке - Pascal ABC

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

Дается строка

. Определить количество латинских букв 'c' в строке с помощью рекурсивной функции. Помогите пожалуйста

Решение задачи: «Определить количество латинских букв 'c' в строке»

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

function sim(s:string;c:char):byte;
begin
if pos(c,s)>0 then
 begin
  delete(s,pos(c,s),1);
  sim:=1+sim(s,c)
 end
else sim:=0;
end;
var s:string;
begin
readln(s);
write(sim(s,'c'));
end.

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

Создаётся функция под названием sim, которая принимает два аргумента: s (строка) и c (символ).
В функции используется оператор if...then для проверки того, есть ли в строке s символ c.
Если символ c присутствует в строке s, то с помощью оператора delete удаляется этот символ из строки s.
Затем вызывается рекурсивно функция sim для оставшейся части строки s и символа c.
Если символ c отсутствует в строке s, то значение переменной sim устанавливается равным нулю.
В основной части программы с помощью функции readln считывается строка s.
Затем с помощью функции write выводится значение переменной sim, которое представляет собой количество латинских букв c в строке s.