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

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

2.Дана целочисленная матрица размерности (n ×n). Найти номер столбца, в котором нет отрицательных элементов.

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

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

  index := 0;
  for j:=1 to m do
  begin
   k:=0;
   for i:=1 to n do
    if A[i,j]>0 then k:=k+1;
   if k=n then
   begin
     index:=j;
     writeln('Stolbec iz ne otricatelnyx elementov: ',index)
   end;
   end;
   writeln;
if index=0 then writeln('Stolbcov iz ne otricatelnyx elementov net');
 readln;
end.

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

Переменная index инициализируется значением 0.
Затем происходит цикл for j=1 до m.
Внутри цикла for i=1 до n происходит вложенный цикл.
В течение этого вложенного цикла проверяется, что элемент A[i,j] больше 0.
Если это условие выполняется, то переменная k увеличивается на 1.
После окончания вложенного цикла проверяется, что значение переменной k равно n.
Если это условие выполняется, то переменной index присваивается значение j.
Затем выводится сообщение с номером столбца, в котором нет отрицательных элементов.
Если значение переменной index равно 0, то выводится сообщение о том, что такого столбца не существует.
В конце программы происходит вызов функции readln для чтения следующей строки ввода.