Для каждого столбца подсчитать количество прописных русских букв - Free Pascal

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

дан массив 9х9 произвольных символов.определить номера строк,содержащих спецсимволы.для каждого столбца подсчитать количество прописных русских букв

Решение задачи: «Для каждого столбца подсчитать количество прописных русских букв»

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

uses crt;
const n=9;
var a:array[1..n,1..n] of char;
    i,j,k,s:byte;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=chr(random(256));
    write(a[i,j]:2);
   end;
  writeln;
 end;
writeln('Номера строк содержащих спецсимволы');
s:=0;
for i:=1 to n do
 begin
  k:=0;
  j:=1;
  while(j<=n)and(k=0)do
  if a[i,j]<' 'then k:=1
  else j:=j+1;
  if k=1 then
   begin
    write(i:2);
    s:=1;
   end;
  end;
writeln;
if s=0 then writeln('Спецсимволов нет');
writeln('Количество прописных русских букв в столбцах');
for j:=1 to n do
 begin
  k:=0;
  for i:=1 to n do
  if a[i,j] in ['А'..'Я'] then k:=k+1;
  writeln(j,'=',k);
 end;
readln
end.

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

Объявление переменных:
- a: массив символов для хранения данных
- i, j, k, s: переменные для управления циклом и подсчета
Инициализация массива a случайными символами
Вывод содержимого массива a в консоль
Поиск строк, содержащих специальные символы
- Инициализация счётчика строк s=0
- Цикл по всем строкам массива a
- Внутри цикла:
- Инициализация счётчика столбцов k=0
- Цикл по всем столбцам массива a
- Проверка, является ли символ специальным (меньше пробела)
- Если символ специальный, увеличиваем счётчик k и записываем номер строки
- После завершения внутреннего цикла, проверяем значение счётчика k
- Если k=1, выводим номер строки и увеличиваем счётчик s
Вывод количества прописных русских букв в столбцах
- Цикл по всем столбцам массива a
- Внутри цикла:
- Инициализация счётчика k=0
- Цикл по всем строкам массива a
- Проверка, является ли символ прописной русской буквой
- Если символ прописной русской буквы, увеличиваем счётчик k
- Выводим номер столбца и количество прописных русских букв в нём
Завершение программы и ожидание ввода пользователя