for i := 1 to 10 do
    a[i] := 2 * i + 1;

  tmp := a[10];

  for i := 10 downto 2 do
    a[i] := a[i - 1];

  a[1] := tmp;