Определить что больше максимальный элемент левой половины или минимальный элемент правой половины матрицы. Pascal - Turbo Pascal

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

Определить что больше максимальный элемент левой половины или минимальный элемент правой половины матрицы. Pascal

Решение задачи: «Определить что больше максимальный элемент левой половины или минимальный элемент правой половины матрицы. Pascal»

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

mx:=Low(mx); for j:=1 to n div 2 do for i:=1 to m do if mx<a[i,j] then mx:=a[i,j];
mn:=High(mx); for j:=n div 2+1 to n do for i:=1 to m do if mn>a[i,j] then mn:=a[i,j];
Write('max левой половины ');
if mx>mn then Write('больше')
else if mx<mn then Write('меньше')
else Write('равен');
WriteLn('  min правой половины');

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

Объявляются переменные mx и mn, которые будут использоваться для хранения максимального и минимального значений матрицы соответственно. Значения переменных инициализируются значением первого элемента матрицы.
Для каждой строки левой половины матрицы выполняется проверка: если текущий элемент больше значения переменной mx, то значение переменной mx обновляется.
Для каждой строки правой половины матрицы выполняется проверка: если текущий элемент меньше значения переменной mn, то значение переменной mn обновляется.
Выводится сообщение с максимальным значением левой половины матрицы.
Выводится сообщение с минимальным значением правой половины матрицы.
Выводится сообщение о том, что больше: если mx больше mn, то выводится слово больше, если mx меньше mn, то выводится слово меньше, если mx равно mn, то выводится слово равен.