Циклический сдвиг

[Mish92(21-09)]

Помогите пожалуйста! Надо сделать циклический сдвиг массива вниз.
У меня есть код программы, только он не работает, массив на одном месте стоит не сдвигается. Заранее благодарен.

begin
        n:=n mod m;
        for k:=1 to v do {столбец}
         for l:=1 to n do
         begin
           c:=a[m,k];
           for i:=m downto 2 do a[i,k]:=a[i-1,k];
           a[1,k]:=c
         end
      end