Транспонировать матрицу и вывести полученную матрицу на экран

uses crt;
{$R-}
const nmax=20;
type
  Tmas=^TTmas;{одна строка матрицы}
  TTmas=array[1..1] of integer;
  Tmatr=^TTmatr;{матрица-массив указателей на строки}
  TTmatr=array[1..1] of Tmas;
var
  a:Tmatr;
  n,i,j:integer;
  x:integer;{буфер для обмена при транспонировании}
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
getmem(a,sizeof(TTmas)*2*n);{выделяем память под указатели на строки}
{поскольку сортируем в двух циклах, нужно в 2 раза больше памяти}
for i:=1 to n do
getmem(a^[i],sizeof(integer)*n);{для каждой строки память для хранения данных}
writeln ('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a^[i]^[j]:=i;
    write(a^[i]^[j]:4);
   end;
  writeln;
 end;
write('Press Enter...');
readln;
for i:=2 to n do
for j:=1 to i-1 do
 begin
   x:=a^[i]^[j];
   a^[i]^[j]:=a^[j]^[i]; {транспонируем}
   a^[j]^[i]:=x;
  end;
writeln('Транспонированная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a^[i]^[j]:4);
  writeln;
 end;
for i:=1 to n do
freemem(a^[i],sizeof(integer)*n); {освобождаем память в обратном порядке, сначала удалим строки}
freemem(a,sizeof(TTmas)*2*n); {потом указатели на них}
write('Press Enter...');
readln
end.

uses crt;
{$R-}
const nmax=20;
type
  Tmas=^TTmas;
  TTmas=array[1..1] of integer;
  Tmatr=^TTmatr;
  TTmatr=array[1..1] of Tmas;
var
  a:Tmatr;
  n,i,j:integer;
  mx,mn:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
getmem(a,sizeof(TTmas)*2*n);
for i:=1 to n do
getmem(a^[i],sizeof(integer)*n);
writeln ('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a^[i]^[j]:=random(40)+10;
    write(a^[i]^[j]:4);
   end;
  writeln;
 end;
mx:=a^[1]^[1];mn:=mx;
for i:=1 to n do
for j:=1 to n do
if a^[i]^[j]>mx then mx:=a^[i]^[j]
else if a^[i]^[j]<mn then mn:=a^[i]^[j];
writeln('Максимум=',mx,' минимум=',mn);
for i:=1 to n do
freemem(a^[i],sizeof(integer)*n);
freemem(a,sizeof(TTmas)*2*n);
write('Press Enter...');
readln
end.

for i:=1 to n do
freemem(a^[i]);
freemem(a);

uses
  Crt;
const
  nmax = 20;
type
  TArr = ^TTArr;
  TTArr = array[1..nmax] of integer;
  TMat= ^TTMat;
  TTmat = array [1..nmax] of TArr;
var
  a: TMat;
  n,i,j: integer;
  mx,mn: integer;
begin
  ClrScr;
  Randomize;
  repeat
    Write('Ðàçìåð ìàòðèöû äî ',nmax,' n=');
    ReadLn(n);
  until
    n in [1..nmax];
  GetMem(a, sizeof(TTArr) * 2 * n);
  for i := 1 to n do
    GetMem(a^[i], SizeOf(integer)*n);
  WriteLn('Èñõîäíàÿ ìàòðèöà:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a^[i]^[j] := random(40) + 10;
      Write(a^[i]^[j]:4);
    end;
    WriteLn;
  end;
  mx := a^[1]^[1];
  mn := mx;
  for i := 1 to n do
    for j := 1 to n do
      if a^[i]^[j] > mx then
        mx:=a^[i]^[j]
      else
        if a^[i]^[j]<mn then
          mn := a^[i]^[j];
  Writeln('Ìàêñèìóì=', mx, ' ìèíèìóì=', mn);
  for i := 1 to n do
    FreeMem(a^[i]);
  FreeMem(a);
  Write('Press Enter...');
  ReadLn
end.