4. написать программу для решения следующей : в квадратной матрице порядка n поменять местами строку и столбец, на пересечении которых стоит максимальный элемент.
сделайте скриншот в паскале! ​

begin

 var n := ReadInteger('n=');

 var a := MatrRandom(n, n, 10, 99);

 a.Println(3);

 var t := a.ElementsWithIndices.MaxBy(p -> p[0]);

 var mRow := a.Row(t[1]);

 var mCol := a.Col(t[2]);

 a.SetRow(t[1], mCol);

 a.SetCol(t[2], mRow);

 Writeln;

 a.Println(3)

end.