Программа паскаль.дан массив целых чисел. сдвинуть его циклически на один элемент вправо.

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.