Сформировать квадратную матрицу размера n по заданному массиву - Pascal ABC

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

Требуется помощь по двумерным массивам в PascalABC. Никак не могу составить программу. Задание такое: "Сформирвать квадратную матрицу порядка n по заданному массиву" 1 0 0 0 0 6 0 2 0 0 5 0 0 0 3 4 0 0 0 0 3 4 0 0 0 2 0 0 5 0 1 0 0 0 0 6

Решение задачи: «Сформировать квадратную матрицу размера n по заданному массиву»

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

const n=6;
var a:array[1..n,1..n] of byte;
    i,j:byte;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if (i=j)or(i+j-1=n) then a[i,j]:=j
                         else a[i,j]:=0;
     write(a[i,j]:3)
    end;
   writeln
  end
end.

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

Переменная n инициализируется значением 6.
Создается переменная a типа array[1..n,1..n] of byte. Эта переменная представляет собой матрицу размером n на n, где каждый элемент матрицы представлен как байт.
Создаются две переменные i и j, которые представляют собой индексы для перебора элементов матрицы. Обе переменные инициализируются значением 1.
Запускается цикл for i:=1 до n do, который перебирает все элементы матрицы от 1 до n.
Внутри цикла for i:=1 до n do начинается вложенный цикл for j:=1 до n do. Этот цикл отвечает за заполнение элементов матрицы.
Внутри вложенного цикла проверяется условие (i=j) или (i+j-1=n). Если это условие выполняется, то переменной a[i,j] присваивается значение j. Если условие не выполняется, то переменной a[i,j] присваивается значение 0.
После завершения вложенного цикла выводится значение переменной a[i,j] с помощью функции write(a[i,j]:3), где 3 - это номер десятичного разряда для вывода байтовых значений.
После завершения внешнего цикла выводится символ новой строки с помощью функции writeln.
Код завершается.