Если все элементы главной диагонали чётны, увеличить максимумы столбцов на минимумы соответствующих строк - Turbo Pascal

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

Дана целочисленная матрица размерности (nxn ). 1. Если элементы, стоящие на главной диагонали являются четными числами, то к каждому максимальному элементу столбца добавить минимальный элемент соответствующей строки. В противном случае матрицу оставить без изменения.

Решение задачи: «Если все элементы главной диагонали чётны, увеличить максимумы столбцов на минимумы соответствующих строк»

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

  i:=n; while (i>0) and not Odd(a[i,i]) do Dec(i);
  if i=0 then { все элементы чётные }

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

Переменная i инициализируется значением n.
Запускается цикл while, который выполняется до тех пор, пока i больше нуля и каждый элемент в главной диагонали нечётный.
Для каждого нечётного элемента в главной диагонали вычисляется его минимальное значение (Dec(i)).
Если после выполнения цикла все элементы в главной диагонали окажутся чётными (i=0), то условие цикла прекращается и цикл завершается.
В противном случае, если хотя бы один элемент в главной диагонали нечётный, цикл продолжается.