В массиве A[1..5,1..5] поменять местами строки и столбцы. Даю 30 баллов. Пожалуйста)

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016// Внимание! Если программа не работает, обновите версию!begin  Writeln('*** Исходный массив ***');  var a:=MatrRandom(5,5,-50,50);   a.Println(4); Writeln(4*a.ColCount*'-');  Writeln('*** Транспонированный массив ***');  a:=Transpose(a);  a.Println(4)end.Пример*** Исходный массив ***  40 -31  16 -27  -3  34 -37   0 -33  -8 -16 -44 -38  19 -22 -32  36 -22  42 -17 -31  20  36   8   9--------------------*** Транспонированный массив ***  40  34 -16 -32 -31 -31 -37 -44  36  20  16   0 -38 -22  36 -27 -33  19  42   8  -3  -8 -22 -17   9