Частота встречаемости символа в строке на Pascal

Определить, как часто встречается определенный символ в строке.

Описание переменных:

s — строка;
c — символ;
count — количество найденных символов в строке;
freq — частота встречаемости, определяемая по формуле (n / len) * 100.

Алгоритм решения задачи:

Получить строку и символ.
Определить длину строки.
Перебрать каждый символ в строке:
1. если очередной символ строки совпадает с заданным символом, то увеличить счетчик символов count на единицу.
Вычислить значение частоты встречаемости и вывести ее на экран.

Программа на языке Паскаль:

var
    s: string;
    c: char;
    count, i: byte;
    freq: real;

begin
    write('String: ');
    readln(s);
    write('Char: ');
    readln(c);

    count := 0;

    for i:=1 to length(s) do
        if s[i] = c then
            count := count + 1;

    freq := (count / length(s)) * 100;

    writeln('Frequency: ', freq:5:2, '%');
end.

Пример выполнения:

String: hello world
Char: l
Frequency: 27.27%