Найти количество столбцов матрицы, в которых есть хотя бы один нулевой элемент - Pascal

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

Найти количество столбцов матрицы Y(8,6), в которых есть хотя бы один нулевой элемент(без использования процедур).

Решение задачи: «Найти количество столбцов матрицы, в которых есть хотя бы один нулевой элемент»

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

const n=8;m=6;
var
  Y:array[0..n,1..m] of integer;
  i,j,k:integer;
begin
  writeln('Введите матрицу по строкам:');
  for i:=1 to n do begin
    write('Строка ',i,':');
    for j:=1 to m do begin
      read(y[i,j]);
      if y[i,j]=0 then y[0,j]:=1;
    end;
  end;
  for i:=1 to m do k:=k+y[0,i];
  writeln('количество столбцов матрицы, в которых есть хотя бы один нулевой элемент:',k);
end.

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

Объявляется константа n со значением 8 и m со значением 6.
Объявляется переменная Y - двумерный массив размером (0..n, 1..m) заполненный целыми числами.
Объявляются переменные i, j, k - все целочисленные.
Выводится сообщение Введите матрицу по строкам:.
Запускается цикл для заполнения матрицы: для каждой строки i от 1 до n выполняются следующие действия:
- Выводится сообщение Строка X:, где X - номер строки.
- Запускается вложенный цикл для каждого элемента j в строке от 1 до m:
  - Считывается значение и сохраняется в Y[i,j].
  - Если значение равно 0, то устанавливается флаг в первом элементе (Y[0,j]) столбца, равный 1.
Запускается цикл для подсчета столбцов, в которых найден хотя бы один элемент равный 0: для каждого столбца i от 1 до m увеличивается счетчик k на значение Y[0,i].
Выводится сообщение количество столбцов матрицы, в которых есть хотя бы один нулевой элемент:k``.
Завершение программы.