Сформировать квадратную матрицу порядка n по заданному образцу - Turbo Pascal (33725)

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

Приветствую всех. Помогите пожалуйста решить задачку. Задание: Сформировать квадратную матрицу порядка n по заданному образцу: Вывод матрицы на экран оформить в виде процедуры. 1 n 1 n ... N 2 n-1 2 n-1 ... n-1 3 n-2 3 n-2 ... n-2 ................................... n-1 2 n-1 2 ... 2 n 1 n 1 ... 1 Заранее огромное спасибо!

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

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

var
  a: array[1..20,1..20] of integer;
  n,i,j: integer;
begin
  repeat
    write('Enter N: ');
    readln(n);
  until n in [1..20];
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if odd(j) then a[i,j]:=i else
        a[i,j]:=n-i+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.

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

Создается переменная a, которая представляет собой массив целых чисел размером 20x20.
Затем определяются три переменные n, i и j, которые будут использоваться для итерации по массиву.
В цикле repeat выполняется до тех пор, пока n не будет равно 1 или 20 (так как это максимальное значение для индексов в массиве).
Внутри цикла for происходит итерация по каждой строке массива от 1 до n.
В каждой итерации внутреннего цикла проверяется, является ли индекс j нечетным. Если это так, то значение элемента массива a[i,j] присваивается переменной i. В противном случае, значение элемента массива a[i,j] присваивается переменной n-i+1.
После завершения внутреннего цикла, значение переменной i выводится на экран.
После завершения внешнего цикла, программа завершается и пользовательу предлагается ввести еще один набор значений.