Переставляя строки и столбцы, добиться того, чтобы наибольший элемент (один из них) оказался в левом верхнем углу

const
  n = 7;
  m = 4;
 
type
  matr = array[1..n, 1..m] of integer;
 
procedure zapolnenie(var mas: matr);//Заполнение массива случайными числами.
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      mas[i, j] := random(9) + 1;
end;
 
procedure max(const mas: matr; var x, y: integer); //Находим позицию максимального элемента.
var
  i, j, k, maxx: integer;
begin
  maxx := mas[1, 1];
  for i := 1 to n do
    for j := 1 to m do
      for k := 1 to m do
        if maxx < mas[i, j] then
        begin
          maxx := mas[i, j];
          y := i;
          x := j;
        end;
end;
 
procedure vivod(const mas: matr);//Вывод массива.
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(mas[i, j]:5);
    Writeln;
  end;
  Writeln;
end;
 
 
procedure vverh(var mas: matr; const y: integer);//Передвигаем наш элемент со всем стоками на самый верх (первую строку)
var
  i, j, c: integer;
begin
  for i := y downto 2 do
  begin
    for j := 1 to m do
    begin
      c := mas[i - 1, j];
      mas[i - 1, j] := mas[i, j];
      mas[i, j] := c;
    end;
  end;
end;
 
procedure vlevo(var mas: matr; const x: integer);//Передвигаем наш элемент со всем стоками влево (первый столбец)
var
  i, j, c: integer;
begin
  for j := x downto 2 do
  begin
    for i := 1 to n do
    begin
      c := mas[i, j - 1];
      mas[i, j - 1] := mas[i, j];
      mas[i, j] := c;
    end;
  end;
end;
 
var
  mas: matr;
  x, y: integer;
 
begin
  zapolnenie(mas);
  max(mas, x, y);
  vivod(mas);
  
  vverh(mas, y);
  vlevo(mas, x);
  vivod(mas);
end.