Заполнить массив случайными числами и выполнить сдвиг элементов массива в право на 1 злемент

Uses crt;
Var mas: array [-10..10] : integer;
i:integer;
randomise;
for i:=1 to 10 do
mas[ i] := -10 +random(10);
For i:=1 to 10 do
Write(mas[i]' ');
Writeln;
End.