
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;