очень нужна Программа на Pascal

var

a:array of integer;

i,n,c:integer;

begin

 readln(n);

 setlength(a,n);

 n:=n-1;

 for i:=0 to n do

   read(a[i]);

 writeln;

 c:=a[n];

 for i:=n-1 downto 0 do

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

 a[0]:=c;

 for i:=0 to n do

   write(a[i]:2);

end.