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

Program mac;uses crt;  const n=9;var c,i:integer; a:array[0..n] of integer;beginwriteln('введите исходный массив');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],' '); readlnend.