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

Дан двумерный массив A[n,m]. Определить количество нулевых элементов главной диагонали массива.

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

k:=0;
for i:=1 to n do
for j:=1 to m do
if (j=i) and(a[i,j]=0) then inc(k);

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

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