{EJERCICIO 3 DEL EXAMEN DEL 11 DE SEPTIEMBRE DE 1.999}

Procedure Trasponer (var matriz : tpmatriz);
Var
   i , j : Integer;
   mAux : tpmatriz;
Begin
     i := 1;
     j := 1;
     While (i <= matriz.dim) Do
           Begin
                While (j <= matriz.dim) Do
                      Begin
                           mAux.datos[i,j] := matriz.datos[i,j];
                           j := j + 1;
                      End;
                      i := i + 1;
                      j := 1;
           End;
     i := 1;
     j := 1;
     For i = 1 To matriz.dim Do
         Begin
              For j = 1 To matriz.dim Do
                  Begin
                       matriz.datos[j,i] := mAux.datos[i,j];
                  End;
         End;
End;