Ввести с клавиатуры число n – размер квадратной матрицы. последовательно
по строкам ввести с клавиатуры все элементы матрицы. отсортировать элементы главной
диагонали по возрастанию. вывести получивший двумерный массив на экран.

===== PascalABC.NET =====

begin

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

 Writeln('Вводите элементы построчно');

 var a := ReadMatrInteger(n, n);

 Writeln;

 a.Println(4);

 Writeln;

 var v := Range(0, n - 1).Select(i -> a[i, i]).Sorted.ToArray;

 for var i := 0 to v.High do

   a[i, i] := v[i];

 a.Println(4)

end.