Заполнить матрицу следующим образом: элементы побочной диагонали равны 0, все остальные элементы равны 1 - Pascal

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

Заполнить целочисленную матрицу А размером 10Х10, так чтобы каждый элемент на побочной диагонали равен 0, все остальные элементы равны 1.

Решение задачи: «Заполнить матрицу следующим образом: элементы побочной диагонали равны 0, все остальные элементы равны 1»

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

const m = 10;
var a: array [1..m, 1..m] of integer;
    i, j: integer;
begin
  for i := 1 to m do
    begin
      for j := 1 to m do
        begin
          if j = m - i + 1 then a[i, j] := 0 else a[i, j] := 1;
          write(a[i, j]:2)
        end;
      writeln
    end;
  readln
end.

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

Объявляется константа m со значением 10.
Объявляется переменная a как двумерный массив размером m x m, содержащий целые числа.
Объявляются переменные i и j, обе как целые числа.
Начинается блок begin.
Запускается цикл for с переменной i от 1 до m.
Начинается вложенный цикл for с переменной j от 1 до m.
Проверяется условие: если j равно m - i + 1, тогда a[i, j] присваивается значение 0, иначе a[i, j] присваивается значение 1.
Выводится значение a[i, j] с отступом в 2 символа.
Завершается вложенный цикл for.
Выводится пустая строка.
Завершается цикл for.
Вводится пустая строка.
Завершается блок begin.
Программа ждет ввода пользователя.