Дана матрица A(N,M). Поменять местами её максимальный и минимальный элементы

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger(Количество строк в матрице:);
  var n:=ReadInteger(Количество столбцов в матрице:);
  Writeln(*** Исходная матрица [,m,,,n,] ***);
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*-);
  var b:=a.Rows.SelectMany(x-gt;x).ToArray;
  var mx:=b.IndexMax; var mn:=b.IndexMin;
  Swap(a[mx div n,mx mod n],a[mn div n,mn mod n]);
  Writeln(*** Матрица-результат ***); a.Println(4);
end.

Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 6
*** Исходная матрица [5,6] ***
  22  72  95 -18  48  15
 -25  72  73  45 -62  75
  49  95 -32  20  66  48
  55   7  57 -98  -8  94
  78  50 -49  73   0 -74
------------------------
*** Матрица-результат ***
  22  72 -98 -18  48  15
 -25  72  73  45 -62  75
  49  95 -32  20  66  48
  55   7  57  95  -8  94
  78  50 -49  73   0 -74