Функция для подсчёта частоты появления заданного символа в строке?

Сканируешь строку побуквенно в цикле . И считаешь сколько раз появился символ.
Не знаю, как на паскале это написать, но смысл такой
count=0;k=0;
while (stroka[k] != '\n')
do
{
if (stroka[k]== 'символ')
{
count++;
}
k++;
}