Język Pascal - Przesunięcie tablicy elementów (Obrót) -Rekursja

Oto procedura rekurencyjna, która pozwala przesunąć wszystkie elementy tablicy w prawo od pozycji p .

 Przesunięcie procedury (Var t: Tab; p, n: integer); Rozpocznij Jeśli p <= n Następnie rozpocznij dekaler (t, p + 1, n); t [p + 1]: = t [p]; Koniec; Koniec; 

Podziękowania dla Zouari Lazhar za tę wskazówkę.