Pascal/Turbo Pascal - Ayuda con ejercicio pascal

{Te propongo la siguiente solución}

PROGRAM MatrizTraspuesta

        USES CRT;

        CONST m_orig:ARRAY[1..4,1..4] OF integer = ((2,3,4,12),

                                                 (7,9,8,11),

                                                 (5,6,1,19),

                                                 (1,3,8,4));

        VAR m_tran:ARRAY[1..4,1..4] OF integer;

        VAR i,j:INTEGER;

BEGIN

     ClrScr;

     FOR i:=1 TO 4 DO

         FOR j:=1 TO 4 DO

             m_tran[j,i]:=m_orig[i,j];

     FOR i:=1 TO 4 DO

     BEGIN

          FOR j:=1 TO 4 DO

              WRITE(m_orig[i,j]:5,' ');

          WRITELN(' ');

     END;

     WRITELN(' ');

     FOR i:=1 TO 4 DO

     BEGIN

          FOR j:=1 TO 4 DO

              WRITE(m_tran[i,j]:5,' ');

          WRITELN(' ');

     END;

     readln;

END.