Дан массив размера N.Осуществить циклический сдвиг элементов массива вправо на одну позицию с запоминанием первого элемента — Pascal(Паскаль)

uses
  crt;
var
  a:array [1..100] of integer;
  i,n,temp:integer;
begin
  writeln('Vvedite n=');
  readln(n);
  writeln('Vvedite massiv');
  for i:=1 to n do
    readln(a[i]);
  temp:=a[n];
  for i:=n downto 2 do
    a[i]:=a[i-1];
  a[1]:=temp;
  for i:=1 to n do
    writeln(a[i],' ');
  readln;
end.