Задана квадратная матрица. Получить транспонированную матрицу — Pascal(Паскаль)

uses crt;
var a:array[1..7,1..7] of integer;
i,j:integer;
BEGIN
clrscr;
randomize;
writeln('isxodnaya matrica');
 
for i:=1 to 7 do
begin
 for j:=1 to 7 do
  begin
   a[i,j]:=random(9)+1;
   write(a[i,j]:2);
  end;
 writeln;
end;
 
writeln;
writeln('tranponirovanaja matrica');
for i:=1 to 7 do
begin
 for j:=1 to 7 do
 write(a[j,i]:2);
writeln;
end;
readkey;
END.