Сделать в Pascal ABC ,посчитать сколько раз в данной строке встречается символ

Var
    a: string;
    b: char;
    i, k: integer;

begin
    readln(a);
    readln(b);
    for i := 1 to length(a) do
        if a[i] = b then
            k := k + 1;
    writeln(k);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.