Veja um procedimento recursivo para inverter os elementos de uma parte de uma tabela entre as posições P e N:
Procedimento Inverter (Var t : Tab; p, n : Integer); Var aux: Real; Begin If p < n Then Begin aux := t[p]; t[p] := t[n]; t[n] := aux; Inverter (t, p + 1, n - 1); End; End;