Veja um procedimento recursivo para deslocar todos os elementos de uma tabela, de uma posição à direita, para uma posição p.
Procedimento Deslocar (Var t : Tab; p, n : integer); Begin If p <= n Then Begin Decaler (t, p + 1, n); t[p + 1] := t[p]; End; End;