Переставить последний элемент массива на место первого. При этом первый, второй, ..., последний элементы сдвинуть вправо на 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.