Дана матрица А размера m×n. Получить транспонированную матрицу (её размер n×m).

for i:=1 to n do begin
 for j:= i + 1 to n do begin
      temp:=A[i,j];
      A[i,j]:=A[j,i];
      A[j,i]:=temp;
  end;
end;

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax]of integer;
    i,j,n,m:integer;
{процедура транспонирования матрицы}
procedure TrMatrix(x,y:integer);
var i,j,b:integer;
begin
for i:=1 to x do
for j:=i to y do
 begin
  b:=a[i,j];
  a[i,j]:=a[j,i];
  a[j,i]:=b;
 end;
end;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n)
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
{вызов процедуры транспонирования матрицы}
if n>m then TrMatrix(m,n){если строк больше чем столбцов}
else TrMatrix(n,m);{если поровну или столбцов больше}
writeln;
writeln('Транспонированная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.