Массивы!

[glebast]

Привет ребята!
Нужно решить задачу, а сил не хватает чуть-чуть.
Помогите пожалуйста!

Дан массив размера N. Осуществить циклический сдвиг элементов
массива вправо на одну позицию (при этом А1 перейдет в А2, А2 в А3,...,
Аn в А1)

[Zer0]

А язык? На что именно нехватает сил?

[glebast]

А програмка какая-то синим экраном, паскаль вроде называется!

[McFrey]

Ни на что у вас сил не хватает я смотрю...даже не знаете как язык программирования называется...обидно,надеюсь разберетесь...

program Project2;

var
  a: array [1..10] of integer;
  i, n, k: integer;

begin
  
  write('n='); readln(n);
  for i := 1 to n do
  begin
    write('A[', i, ']= '); readln(a[i]);
  end;
  
  k := a[n];
  for i := n downto 2 do
    a[i] := a[i - 1];
  a[1] := k;
  
  for i := 1 to n do
    write(a[i]:5);
  readln
end.

[glebast]

да я же шучу, просто спросили так.