Сформировать квадратную матрицу порядка n по заданному образцу - PascalABC.NET

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

Обработка двумерных массивов. Сформировать квадратную матрицу порядка n по заданному образцу

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

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

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

const n=10;m=8;
type myarr=array[1..n,1..m] of int64;
var
  a:myarr;
  i,j:integer;
begin
  randomize;
  for i:=1 to n do begin
  for j:=1 to m do begin
    if (i=1) or (i=n) or (j=1) then a[i,j]:=1;
    write(a[i,j]:2);
  end;
  writeln;
  end;
end.

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

Объявлены константы n=10 и m=8, которые задают размерность матрицы.
Объявлен тип массива myarr как array[1..n,1..m] of int64, который будет представлять собой квадратную матрицу порядка n по заданному образцу.
Создана переменная a типа myarr, которая будет представлять собой квадратную матрицу.
В цикле for i от 1 до n выполняется внутренняя переборная процедура для каждого столбца матрицы.
В цикле for j от 1 до m выполняется внутренняя переборная процедура для каждой строки матрицы.
Условие (i=1) or (i=n) or (j=1) проверяет, является ли текущая ячейка матрицы элементом образца.
Если условие истинно, то значение ячейки a[i,j] устанавливается равным 1.
Значение ячейки a[i,j] выводится на экран с помощью функции write(a[i,j]:2).
В конце каждой итерации внутреннего цикла выводится символ новой строки, чтобы значения ячеек матрицы выводились на разные строки.
После завершения внешнего цикла выводится символ новой строки, чтобы перейти к следующей строке матрицы.
В конце программы вызывается функция randomize, которая инициализирует генератор случайных чисел перед выполнением программы.