Дана целочисленная квадратная матрица. Найти в каждой стро­
ке наибольший элемент и поменять его местами с элементом глав­
ной диагонали. (программа в Паскале)

PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Количество строк/столбцов в матрице:');  Writeln('*** Исходная матрица ***');  var a:=MatrRandom(n,n,-99,99);   a.Println(4); Writeln(4*a.ColCount*'-');  var imax:=a.Rows.Select(r->r.ToArray.IndexMax).ToArray;  for var i:=0 to n-1 do    Swap(a[i,i],a[i,imax[i]]);  Writeln('*** Результат ***'); a.Println(4)  end.