РЕБЯТ, Помогите! Программа паскаль.Дан массив целых чисел. Сдвинуть его циклически на один элемент вправо.

Const n = 10;Var m : array[1..n] of Integer;  i,k : Integer;Begin  For i:=1 to n do  Begin    m[i]:=i;    Write(m[i],' ');  end;  Writeln;    k:=m[n];  For i:=n downto 2 do m[i]:=m[i-1];  m[1]:=k;    For i:=1 to n do Write(m[i],' ');  Writeln;end.