Вывод строки начинающейся на конкретный символ - Pascal ABC

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

Добрый день! Задание. Ввести ряд строк и вывести те, которые начинаются на букву 'b'. Посчитать количество вхождений буквы 'b' в тексте. Как сначало получить все строки, а потом уже по ним вывести все строки начинающиеся на 'b' и количество вхождений 'b'?

program b_letter;
 
var ln : string;
    ch : char;
    
BEGIN
   writeln();
   repeat
      write('Enter the string: ');
      readln(ln);
      write('Продолжить ввод? - Y/N: ');
      readln(ch);
      
      writeln();
 
      if ln[1] = 'B' then
        writeln(ln, ' ');
        if ln[1] = 'b' then
          writeln(ln, ' ');
   until (ch = 'N') or (ch = 'n');  
END.

Решение задачи: «Вывод строки начинающейся на конкретный символ»

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

var ln : array[1..20] of string;
    n,i,j,k,s:integer;
begin
repeat
write('Введите количество строк от 1 до 20 n=');
readln(n);
until n in [1..20];
writeln('Введите ',n,' строк');
k:=0;
for i:=1 to n do
 begin
  readln(ln[i]);
  for j:=1 to length(ln[i]) do
  if Upcase(ln[i][j])='B' then k:=k+1;
 end;
writeln('Строки на буквы b,B');
s:=0;
for i:=1 to n do
if Upcase(ln[i][1])='B' then
 begin
  writeln(ln[i]);
  s:=1;
 end;
if s=0 then writeln('Строк на буквы b,B нет');
write('Всего букв b,B в строках=',k)
end.

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

Создается переменная ln типа array[1..20] of string. Это массив строк, который будет использоваться для хранения введенных пользователем строк.
Создаются переменные n, i, j, k, s типа integer. Они будут использоваться для контроля цикла и обработки данных.
Запускается цикл repeat, который будет выполняться до тех пор, пока n не станет равным 0 или больше 20.
Внутри цикла repeat выполняется запрос у пользователя о количестве строк, которые он хочет ввести.
После получения количества строк, введенных пользователем, цикл repeat останавливается.
Выводится сообщение с количеством введенных строк.
Сбрасывается переменная k в ноль. Она будет использоваться для подсчета строк, содержащих букву 'b'.
Запускается цикл for, который будет выполняться для каждой строки в массиве ln.
Внутри цикла for выполняется запрос у пользователя о вводе строки.
После получения строки, выполняется проверка каждого символа в строке. Если символ является заглавной буквой 'B', то переменная k увеличивается на единицу.
Если переменная s равна нулю, выводится сообщение о том, что строк, содержащих букву 'b', нет.
После выполнения всех проверок и обработки данных, выводится общее количество строк, содержащих букву 'b'.
Цикл for останавливается.
Выводится сообщение о том, что строк, содержащих букву 'b', нет.
Код завершается.