В двухмерном массиве сделать строки столбцами, столбцы строками - PascalABC.NET

Формулировка задачи:

Дан квадратный массив размерностью n на n. Нужно сделать строки столбцами, а столбцы строками

Решение задачи: «В двухмерном массиве сделать строки столбцами, столбцы строками»

Листинг программы

const
  n = 5;
var
  A : array [1..n, 1..n] of Integer;
begin
  Randomize;
  for var Row := 1 to n do
    for var Col := 1 to n do
      A[Row, Col] := Random(1, 9);
      
  WriteLn('1 матрица:');
  for var Row := 1 to n do
    begin
      for var Col := 1 to n do
        Print(A[Row, Col]);
      WriteLn;
    end;
  WriteLn;
    
  WriteLn('2 матрица:');
  for var Row := 1 to n do
    begin
      for var Col := 1 to n do
        Print(A[Col, Row]);
      WriteLn;
    end;
end.

Объяснение кода листинга программы

Задается размер матрицы в виде константы n равной 5.
Объявляется двумерный массив A размером n на n для хранения целых чисел.
Используя цикл for, заполняем элементы массива A случайными числами от 1 до 9 с помощью функции Random.
Выводим на экран первую матрицу A с помощью цикла for и внутри него двух вложенных циклов for.
Выводим на экран вторую матрицу A с помощью аналогичного цикла for и вложенных циклов for, но меняем местами строки и столбцы.
Код завершается.