Псдвиг массива [TurboPascal]

Написать программу. Предусмотреть задание массива случайным образом и ввод элементов с клавиатуры. Каждый из вариантов задания массива и вывод оформить в виде отдельной процедуры.

[SIZE=3]В одномерном массиве переставить последний элемент в начало, сдвигая все элементы вправо на одну позицию.[/SIZE]