Обнулить элементы матрицы, лежащие одновременно выше главной и побочной диагоналей - Pascal - Pascal ABC

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

Дана квадратная матрица порядка n. Обнулить элементы матрицы,лежащие одновременно выше главной и побочной диагоналей. Пожалуйста, СРОЧНО!!!

Решение задачи: «Обнулить элементы матрицы, лежащие одновременно выше главной и побочной диагоналей - Pascal»

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

const n=11;
var a:array[1..n,1..n] of byte;
    i,j:byte;
begin
for i:=1 to n do
 begin
  for j:=1to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(j>i)and(j<n-i+1) then a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.

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

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