Оформить задачу на языке Паскаль - Элементы массива а циклически двинуть

program arr;
const n = 40; //задает число частей массива
var a: array [1..n] of integer;
temp: integer;
begin
randomize;
//Формирование массива
for i: integer:= 1 to n do
begin
a[i]:= random(30);
write(a[i] : 3);
end;
temp:= a[1];
writeln();
//Сдвиг массива
for i:integer:= 1 to n - 1 do a[i]:= a[i + 1];
a[n]:=temp; //первый и заключительный элемент размен значениями
//вывод массива со сдвигом
for i: integer:= 1 to n do write(a[i] : 3);
end.