Данная квадратная матрица порядка N. Составить программу, транспонирует эту матрицу — Pascal(Паскаль)

Program ABC;
Var
   a:array[1..3,1..3]of Integer;
   i,j:Byte;
BEGIN
    a[1,1]:=1;
    a[1,2]:=2;
    a[1,3]:=3;
    a[2,1]:=4;
    a[2,2]:=5;
    a[2,3]:=6;
    a[3,1]:=7;
    a[3,2]:=8;
    a[3,3]:=9;
    writeln('Исходная матрица ');
    for i:=1 to 3 do
         begin
         for j:=1 to 3 do
                  begin
                       write(a[i,j],'  ');
                  end;
         writeln;
         end;
    writeln('Транспонированная матрица');
     for i:=1 to 3 do
         begin
         for j:=1 to 3 do
                  begin
                       write(a[j,i],'  ');
                  end;
         writeln;
         end;
END.