Сдвиг элемента по кругу! Опции

[Студент*21в.]

Всем привет!
Дана программка, которая выполняет сдвиг элементов массива на одну поз. вправо

 program sdvig; 

         const n=10;       
         type mass=array[1..n]of integer;
         var i:integer;x:mass; 

       begin
        for i:=1to n do  
         begin 
          write(' Введте ',i,'-й элемент массива '); 
          readln(x[i]) 
         end;
       for i:=n-1 downto 2do  x[i]:=x[i-1];x[1]:=0;
       writeln('Результат');
       for i:=1to n do write(x[i] :4);
      end.

как сделать так, чтобы первый элемент массива не равнялся нулю, а наследовал значения последнего элемента введенного с клавиатуры?

[TarasBer]

tmp := x[n];
for i := n downto 2 do x[i] := x[i-1];
x[1] := tmp;