Переставить последний элемент массива на место первого. При этом первый, второй, ..., последний элементы сдвинуть вправо на 1 позицию

Program mac;

uses crt;

const n=9;

var c, i:integer; a:array[0 ... n] of integer;

begin

writeln ('введите исходный массив') ;

for i:=0 to n do

begin

write ('a[', i,']=') ; readln (a[i]) ;

end;

writeln ('вывод исходного массива') ;

for i:=0 to n do

write (a[i],' ') ;

writeln;

c:=a[n];

for i:=n-1 downto 0 do

a[i+1]:=a[i];

a[0]:=c;

writeln ('вывод результативного массива') ;

for i:=0 to n do write (a[i],' ') ;

readln

end.