Inverter os elementos de uma tabela - Recursão

Faça uma pergunta
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;




Deslocar os elementos de uma tabela (Rotação) - Recursão
Gestão de erros