Квадратная матрица, заполнить нулями, диагонали единицами - Turbo Pascal

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

Write a program that asks the user to input dimension of 2- dimensional square array X, fills the array with o and 1 (filling the array all the elements are 0 except NW-SE and NE-SW diagonals) and outputs array to the screen.Write a special function for array generation and procedure for printing it to the screen.

Напишите программу, которая предлагает пользователю ввода размерности 2 - мерный квадратный массив X, заполняет массив с о и 1 (заполняющего массив все элементы 0, кроме СЗ-ЮВ и СВ-ЮЗ диагоналей) и выходов массива на экран . Написать специальную функцию для генерации массива и процедуры для печати его на экран.

Решение задачи: «Квадратная матрица, заполнить нулями, диагонали единицами»

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

a[i,j]:=Byte((i=j) or (i+j=n+1));

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

Переменная n представляет собой размер квадратной матрицы.
Создается массив a размером n x n.
Для каждой строки i массива a выполняется следующая последовательность команд:
- Переменная j инициализируется значением 0.
- Если i равно j, то присваивается значение true переменной a[i,j], иначе присваивается значение false.
- Если i равно j плюс 1, то присваивается значение true переменной a[i,j], иначе присваивается значение false.
Выводится сообщение с информацией о матрице a.