Заполнить двумерный массив по правилу - Free Pascal

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

Задача такого: (картинка предоставлена ниже) 6a. Создать программу, которая заполнит двухмерный массив с последующими значениями: 1,2,3,4,5... по вертикале. 6b. Создать программу, которая заполнит элементы массива с указанными значениями.

Решение задачи: «Заполнить двумерный массив по правилу»

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

uses crt;
const n=10;
var a:array[1..n,1..n] of byte;
    i,j,k:byte;
begin
clrscr;
k:=0;
for j:=1 to n do
for i:=2 to n-1 do
if((j<i)and(j<n-i+1))or((j>i)and(j>n-i+1)) then
  begin
   inc(k);
   a[i,j]:=k;
  end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.

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

Код решает задачу заполнения двумерного массива по правилу:

Создается двумерный массив размером n на n (const n = 10; var a: array[1..n, 1..n] of byte;).
Задаются три переменные i, j, k типа byte (var i, j, k: byte;).
Переменная k инициализируется значением 0.
Два вложенных цикла заполняют массив a значениями от 0 до n*n (for j:=1 to n do for i:=2 to n-1 do if((j<i)and(j<n-i+1))or((j>i)and(j>n-i+1)) then begin inc(k); a[i,j]:=k; end;).
Два вложенных цикла выводят значения массива a на экран (for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end;).
Ввод с клавиатуры ничего не делает (readln).