Исключить из матрицы строку и столбец, на пересечении которых находится максимальный элемент - Turbo Pascal

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

Дан двумерный числовой массив. Исключив из него строку и столбец,на пересечении которых находится максимальный элемент.

Решение задачи: «Исключить из матрицы строку и столбец, на пересечении которых находится максимальный элемент»

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

Uses Crt;
Const
  MaxX = 4;
  MaxY = 6;
Var
  m0        : array[1..MaxX,1..MaxY] of Integer;
  i,j,mx,my : Byte;
Begin
  ClrScr;
  mx:=1; my:=1;
  For i:=1 to MaxX do
   For j:=1 to MaxY do
  Begin
    m0[i,j]:=Random(100);
    GoToXY(i*3,j); Write(m0[i,j]);
    If m0[i,j]>m0[mx,my] then
    Begin
      mx:=i; my:=j;
    End;
  End;  
  Writeln;
  Writeln;
  For j:=1 to MaxY do
  Begin
    For i:=1 to MaxX do
      If (i<>mx) and (j<>my) then Write(m0[i,j]:2,' ');
    If my<>j then Writeln;
  End;
End.

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

В начале кода подключается библиотека Crt, которая предоставляет функции для работы с памятью.
Затем определяются константы MaxX и MaxY, которые задают максимальные значения для x и y координат матрицы.
Создается переменная m0 типа array[1..MaxX,1..MaxY] of Integer, которая представляет собой матрицу размером MaxX x MaxY.
Определяются три байтовых переменных i, j и mx, которые будут использоваться для перемещения по матрице и хранения текущего максимума.
Запускается цикл, который заполняет матрицу случайными числами от 0 до 99.
Внутри цикла проверяется, является ли текущая ячейка (i,j) максимальной среди всех ячеек матрицы. Если это так, то обновляется значение переменных mx и my, которые хранят координаты этой ячейки.
После завершения внешнего цикла начинается второй цикл, который проходит по каждой строке матрицы.
Внутри этого цикла проверяется, являются ли текущие ячейки (i,j) и (mx,my) разными. Если это так, то выводится значение ячейки (i,j).
Если значение ячейки (i,j) больше значения ячейки (mx,my), то обновляется значение переменной my.
Если значение ячейки (i,j) меньше или равно значению ячейки (mx,my), то обновляется значение переменной mx.
После завершения внутреннего цикла выводится символ новой строки.
Конец программы.