Как найти максимальный элемент главной диагонали? - Turbo Pascal

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

Помогите пожалуйста

program sbb;
uses crt;
var
  i,j,s:integer;
a:array[1..5,1..10] of integer;
begin
  for i:=1 to 5 do
  begin
    for j:=1 to 10 do
    begin
      random(50);
      a[i,j]:=random(50);
      write(' ');
      write(a[i,j]);
    end;
    writeln
  end;

Решение задачи: «Как найти максимальный элемент главной диагонали?»

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

program sbb;
uses crt;
const n = 5;
var
  i, j, max : integer;
a:array[1..n,1..n] of integer;
begin
  max := -100;
  randomize;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin      
      a[i,j]:=random(50);
      write(a[i,j]:4);
      if (a[i,j] >= max) and (i = j) then max := a[i,j] {ищем максимум}
    end;
    writeln
  end;
  writeln('максимум: ', max);
  readln
end.

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

В программе объявлены переменные n, i, j, max, a.
Переменная n инициализируется значением 5.
Используется библиотека crt.
В цикле for i:=1 до n выполняется следующий код:
- В цикле for j:=1 до n выполняется следующий код:
  - В цикле for a[i,j]:=random(50) выполняется генерация случайного числа от 0 до 50.
  - Строка if (a[i,j] >= max) and (i = j) then max := a[i,j] проверяет, является ли значение a[i,j] больше текущего максимума и равна ли текущая строка диагонали самой себе. Если это условие выполняется, то значение max обновляется.
- Строка write(a[i,j]:4) выводит значение a[i,j] в формате 4-х знаков после запятой.
- Строка writeln() выводит строку максимум: и значение max.
Программа завершается вызовом функции readln().