Дана квадратная матрица A={A[ij]}, i,j=1…M, где М- данное число. Получить матрицу B=A^t, T- знак транспонирования — Pascal(Паскаль)

uses crt;
var
a,b:array[1..20,1..20]  of  integer;
m,k,i,j: integer;
begin
writeln('введите m');
readln(m);
randomize;
for k:=1 to m do
 begin
  for i:=1 to m do
   begin
    a[k,i]:=random(24)-12;
    write(a[k,i]:4);
   end;
  writeln;
 end;
writeln;
for k:=1 to m do
 begin
  for i:=1 to m do
   begin
    b[k,i]:=a[i,k];
    write(b[k,i]:4);
   end;
  writeln;
 end;
readln
end.