Pascal/Turbo Pascal - Procedimiento

A ver si alguien me puede ayudar. Tengo que hacer un procedimiento para obtener a partir de una matriz de dimentsión NxN dada la matriz traspuesta según su diagonal principal:

Ejemplo:

1 2 3
4 5 6
7 8 9

daria

9 6 3
8 5 2
7 4 1

Const N=3;
Type Matriz: Array [1..N, 1..N] of Real;
Procedure transpuesta(var m: Matriz);

Gracias.