Сформировать квадратную матрицу порядка n (n – вводится с клавиатуры пользователем) по следующему образцу - Turbo Pascal

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

Помогите пожалуйста очень срочно надо решить: Сформировать квадратную матрицу порядка n (n – вводится с клавиатуры пользователем) по следующему образцу: [IMG]http://s41.***********/i094/1201/88/7134e3a10e19.jpg[/IMG]

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

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

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:integer;
begin
clrscr;
repeat
write('Введите размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j>=i then a[i,j]:=j-i+1
    else a[i,j]:=i-j+1;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.

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

Объявлены переменные: n, i, j — для работы с матрицей; a — массив для хранения элементов матрицы; nmax — максимальное значение размера матрицы.
Цикл повторяется до тех пор, пока пользователь не введет размер матрицы от 1 до 20.
Выводится сообщение о вводе размера матрицы.
В цикле выводятся элементы матрицы, при этом элементам присваивается значение в зависимости от их положения в матрице.
Если значение элемента больше или равно его индексу, то элемент выводится в правую нижнюю ячейку диагонали.
Если значение элемента меньше его индекса, то элемент выводится в левую верхнюю ячейку диагонали.
Цикл выводит все элементы матрицы.
Программа ожидает ввода с клавиатуры, чтобы пользователь мог увидеть результат.