Lenguaje Pascal - Invirtiendo los elementos de una matriz-recursión

Aquí hay un procedimiento recursivo que permite que los elementos inviertan parte de una tabla entre la posición p y n:

 Procedimiento Invertir (Var t: Tab; p, n: Integer); Var aux: Real; Comenzar Si p <n Luego Comenzar aux: = t [p]; t [p]: = t [n]; t [n]: = aux; Inversor (t, p + 1, n - 1); Fin; Fin; 

Gracias a Zouari Lazhar por este consejo.