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

Program Prog1;//Задана квадратная матрица. Получить транспонированную матрицу, т. е. матрицу, где столбцы и строки меняются местами.

var
a: array [,] of Integer;



Begin
var n:=readInteger('Введите порядок квадратной матрицы n = ');
SetLength(a,n,n); // устанавл

Задана квадратная матрица. Получить транспонированную матрицу, т. Е. матрицу, где столбцы и строки меняются местами.
Program Prog1;//Задана квадратная матрица. Получить транспонированную матрицу, т. е. матрицу, где столбцы и строки меняются местами.

var
a: array [,] of Integer;



Begin
var n:=readInteger('Введите порядок квадратной матрицы n = ');
SetLength(a,n,n); // устанавливаем размер матрицы а
For var i:=0 to n-1 do //заполняем массив
Begin
For var j:=0 to n-1 do //заполняем массив
Begin
a[i,j]:=random(1,20);
Write(a[i,j]:4,' ');
End;
Writeln;
End;

For var i:=1 to n-1 do
For var j:=0 to i-1 do
Begin
var b:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=b;
End;

Writeln;
Writeln('Результат');
For var i:=0 to n-1 do
Begin
For var j:=0 to n-1 do Write(a[i,j]:4,' ');
Writeln;
End;
end.