Дан массив N. Осуществить сдвиг элементов массива вправо на 1 позицию. Пожалуйста, на уровне 9 класса ( недавно проходили метод пузырька со сдвигом. это так, показать уровень знаний просто)

А мы в девятом проходили Word O_o
var
  mas: array[1..100] of integer;
  c, i, N:integer;

begin
  readln(N);
  for i:=1 to N do
    readln(mas[i]);
  c:=mas[N];
  for i:=N downto 2 do
    mas[i]:=mas[i-1];
  mas[1]:=c;
  for i:=1 to N do
    write(mas[i], ' ');
end.