Определить количество нулевых элементов в каждом столбце матрицы - Turbo Pascal

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

Определить количество нулевых элементов в каждом столбце матрицы. помогите

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

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

program pr;
var
  i, j, n, m, cout: integer;
  a: array [1..100, 1..100] of integer;
begin
  writeln('Введите количество строк матрицы');
  readln(n);
  writeln('Введите количество столбцов матрицы');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do 
      a[i, j] := random(10);
  for i := 1 to n do
  begin
    for j := 1 to m do 
      write(a[i, j]:3);
    writeln;
  end;
  for j := 1 to m do 
  begin
    cout := 0;
    for i := 1 to n do 
    begin
      if a[i, j] = 0 then
        cout := cout + 1;
    end;
    writeln('Количество нулевых элементов в ', j, ' столбце: ', cout);
  end;
end.

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

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Запрашивает у пользователя количество строк и столбцов матрицы.
Создает массив a размером n x m, где n - количество строк, а m - количество столбцов.
Генерирует случайные числа от 0 до 9 для каждого элемента массива a.
Выводит содержимое каждой строки массива a.
Для каждого столбца массива a:
- Инициализирует переменную cout равной 0.
- Проходит по каждой строке массива a.
  - Если элемент в текущей строке равен 0, увеличивает значение переменной cout на 1.
- Выводит количество нулевых элементов в текущем столбце.
Окончание программы.