В одномерном массиве 2-й элемент поставить на первое место, 3-й - на 2-оеи т.д. 

1-й элемент поставить на последнее место.

var mas:array[1..5] of integer; i,j,a,b,f,r:integer;
begin
for i:=1 to 5 do
readln(mas[i]);
writeln(mas[i]);
a:=mas[1];
j:=mas[2];
b:=mas[3];
f:=mas[4];
r:=mas[5];
mas[1]:=j;
mas[2]:=b;
mas[3]:=f;
mas[4]:=r;
mas[5]:=a;
for i:=1 to 5 do
writeln(mas[i]);
readln;
end.