Найти максимальный диагональный элемент и указать его координаты в главной диагонали матрицы - Pascal

1)Найти максимальный диагональный элемент и указать его координаты в главной диагонали матрицы.

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

max:=a[1,1];
imx:=1;
for i:=2 to n do
if a[i,i]>max then
 begin
  max:=a[i,i];
  imx:=i;
 end;

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

Создается переменная max и присваивается значение первого элемента матрицы a (a[1,1]).
Создается переменная imx и присваивается значение 1.
Запускается цикл от 2 до n, где n - размерность матрицы.
Проверяется условие: если элемент матрицы a[i,i] больше значения переменной max, то выполняется блок:
- переменной max присваивается значение элемента матрицы a[i,i];
- переменной imx присваивается значение i, т.е. новые координаты диагонального элемента с максимальным значением.