Задана квадратная матрица. Получить транспонированную матрицу, т.е. матрицу, где столбцы и строки меняются местами. (Pascal) Закомментировать логику

PascalABC.NETbegin var n := ReadInteger('n:'); var a := MatrRandom(n,n,-99,99); var b := MatrGen(n,n,(i,j)->a[j,i]); a.Print; Writeln; b.Print; end.

Пример работы:

// PascalABC.NET

begin

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

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

 a.Println;

 Writeln;

 a := Transpose(a);

 a.Println

end.

Объяснение:

Я не понимаю значение фразы "закомментировать логику", но в любом случае, в решении никакой "логики" нет. Поскольку тут она не нужна.