Сдвинуть все элементы массива на одну позицию вправо (циклически). последний элемент должен оказаться на месте первого.в паскале

Var i:integer;
x:array[1..5]of integer;
begin 
for i:=1 to 5 do
begin
if i<>5 then read(x[i+1])
else read(x[1]);
end;
end.
Самое простое решение-считывать сразу в сдвинутом состоянии.