Составить программу подсчета количества вхождений буквы "b" в заданном тексте - Pascal ABC

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

Задача: Составить программу подсчета количества вхождений буквы "b" в заданном тексте.

Решение задачи: «Составить программу подсчета количества вхождений буквы "b" в заданном тексте»

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

type
  ar = array [char] of integer;
 
var
  s: string;  
  cc,ch: char;
  c: ar ;
 
begin
  writeln('Введите строку:');Readln(s);
  writeln('Введите символ:');Readln(ch);
  foreach cc in s do
    inc(c[cc]);
  Write('Найдено: ',c[ch]);
end.

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

В начале объявляются необходимые переменные: s (строка), ch (символ), c (массив для подсчета вхождений).
Затем выводится приглашение для ввода строки и символа.
В цикле foreach происходит итерация по каждому символу в строке s.
Для каждого символа в строке увеличивается значение в соответствующем элементе массива c.
После завершения цикла выводится найденное количество вхождений символа.