Найти количество нулевых элементов и сформировать массив - PascalABC.NET

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

Дан двумерный массив A[6,6]. Надо сформировать массив B[6]. Найти количество нулевых элементов в главной диагонали матрицы, и записать B[1], найти количество нулевых элементов диагонали который расположен параллельно над главным диагональном и записать в B[2], и т.д.

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

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

var a:array[1..6,1..6] of integer; i,j:integer; b:array[1..6] of integer;
begin
 for i:=1 to 6 do begin
  for j:=1 to 6 do begin
    a[i,j]:=random(2); write(a[i,j]:5);
    if (j>i) and (a[i,j]=0) then inc(b[j-i+1]);
  end; writeln;
 end; writeln;
 for i:=1 to 6 do write(b[i]:5);
readln;
end.

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

Объявляется двумерный массив a размером 6x6, заполненный случайными значениями от 0 до 1.
В первой вложенной циклом перебираются строки массива a, во второй - столбцы.
Если элемент a[i,j] равен 0 и условие (j>i) выполняется, то к элементу b[j-i+1] прибавляется единица.
Выводится массив a и массив b.
Массив b выводится повторно.