Найти в матрице номера строк и столбцов, не содержащих единицы - Pascal ABC

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

Матрица K(m,m) состоит из нулей и единиц. Найти в ней номера строк и столбцов, не содержащих единицы, либо сообщить, что таких нет.

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

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

  q:=0;
  for i:=1 to m do begin
    j:=n; while (j>0) and (k[i,j]<>1) do Dec(j);
    if j=0 then begin
      Write(' ',i); Inc(q);
    end;
  end;
  if q=0 then Write('Таких строк нет');
  WriteLn;

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

Переменная q инициализируется значением 0.
Затем происходит цикл for, который начинается с i равным 1 и продолжается до m.
Внутри цикла происходит цикл while, который выполняется до тех пор, пока j не станет равным 0 и k[i,j] не будет равно 1.
Если j становится равным 0, то записывается пробел и увеличивается значение переменной q на 1.
После окончания внутреннего цикла while проверяется значение переменной q.
Если q равно 0, то выводится сообщение Таких строк нет.
Затем выводится символ новой строки (WriteLn).