Определить число повторений определенного символа в строке текста - Pascal ABC

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

Определить число повторений определенного символа в строке текста (a,z,o) с помощью функции Паскаль

Решение задачи: «Определить число повторений определенного символа в строке текста»

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

uses crt;
function Kol(s:string; c:char):integer;
var i,k:byte;
begin
k:=0;
for i:=1 to length (s) do
if s[i]=c then k:=k+1;
result:=k
end;
var s:string;
    k1,k2,k3:integer;
begin
write('Введите текст : ');
readln(s);
k1:=Kol(s,'a');
k2:=Kol(s,'z');
k3:=Kol(s,'o');
writeln('Количество символов "a": ',k1);
writeln('Количество символов "z": ',k2);
writeln('Количество символов "o": ',k3);
writeln('Всего символов данного вида: ',k1+k2+k3);
end.

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

В данном коде используется функция Kol, которая принимает строку и символ в качестве параметров. Функция подсчитывает количество повторений указанного символа в строке и возвращает это значение. Далее, в основной части кода пользователю предлагается ввести текст. Затем вызываются три раза функция Kol с разными параметрами: для символа 'a', для символа 'z' и для символа 'o'. Результаты сохраняются в переменных k1, k2 и k3 соответственно. Затем выводится количество символов каждого из этих видов. И, наконец, выводится общее количество символов всех трех видов.