Найти наибольшее из значений элементов , расположенных в заштрихованной части матрицы - PascalABC.NET

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

Дана действительная квадратная матрица порядка n. Найти наибольшее из значений элементов , расположенных в заштрихованной части матрицы. (б, г, е)

Решение задачи: «Найти наибольшее из значений элементов , расположенных в заштрихованной части матрицы»

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

//б
var a:array[,]of integer;
    n,i,j,mx:integer;
begin
write('n=');
readln(n);
setlength(a,n,n);
randomize;
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=random(100);
    if(i=0)and(j=0)then mx:=a[0,0]
    else if(j<=i)and(a[i,j]>mx) then mx:=a[i,j];
    write(a[i,j]:3);
   end;
  writeln;
 end;
write('Максимальный ниже и на главной диагонали=',mx);
end.

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

Объявляются переменные: n - количество строк и столбцов матрицы, i, j - индексы для обхода матрицы, mx - переменная для хранения максимального значения.
С помощью функции readln считывается значение переменной n.
С помощью функции setlength задается размер матрицы a.
В цикле заполняются ячейки матрицы случайными значениями от 1 до 100 с помощью функции random.
В цикле сравниваются значения в ячейках матрицы и обновляется значение переменной mx, если текущее значение больше.
С помощью функции write выводятся значения ячеек матрицы.
Выводится максимальное значение переменной mx.
Завершается выполнение программы.