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

Question

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

Comments

var a, b: string; 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.

---

решение готово если оно работает, а не тогда когда его надо исправлять и дописывать

Answer 1

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.