Вывести номер столбца квадратной матрицы, у которого все элементы равны 0 - Turbo Pascal

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

Задача с квадратной матрицой: Вывести номер столбца, у которого все элементы равны 0, а если такого нету, вывести соответствующее сообщение

Решение задачи: «Вывести номер столбца квадратной матрицы, у которого все элементы равны 0»

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

const T = 5;
 
var
  mas : array [1..T, 1..T] of integer;
  m, i, j, K, N : integer;
  
  
begin
  Writeln;
  Write('Введите размер матрицы, не больше 5: ');
  Readln(N);
 
  for i:= 1 to N do
    begin
      Writeln('Введите', N, ' элемента(-ов) ', i, ' строки матрицы: ');
      for j:= 1 to N do
        begin
          Read(K);
          mas[i, j]:= K;
        end;
    end;
  Writeln;
  Writeln('Матрица:':2);
  for i:= 1 to N do
    begin
      for j:= 1 to N do
          Write(mas[i, j]:4);
      Writeln;
    end;
 
  for j:= 1 to N do
    begin
      m:= 0;
      for i:= 1 to N do
          if mas[i, j] = 0 then m:= m + 1;
      if m = N then Writeln('Есть соответствие в столбце ', j)
         else Writeln('Нет соответствий в столбце ', j);
    end
end.

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

Создается константа T, которая определяет максимальное количество строк и столбцов матрицы.
Создается переменная mas типа array[1..T, 1..T] of integer, которая представляет собой матрицу размером T на T.
Создаются переменные m, i, j, K, N, которые будут использоваться для итерации по матрице и вывода информации.
Выводится приглашение на ввод размера матрицы, не превышающего 5.
Запускается цикл for, который повторяется N раз. На каждой итерации вводится N элементов матрицы для текущей строки.
Внутри цикла выводится приглашение на ввод элементов матрицы.
После завершения цикла ввода элементов матрицы, выводится матрица с помощью цикла for.
Запускается еще один цикл for, который повторяется для каждой строки матрицы.
Внутри цикла вычисляется значение переменной m, которая будет использоваться для отслеживания количества элементов в текущем столбце.
Если все элементы в текущем столбце равны 0, то выводится сообщение о том, что в столбце есть соответствие.
По окончании цикла m, выводится сообщение о том, есть ли соответствие в столбце или нет.