Сдвиг циклический, обыкновенный, горим! Опции

[Kit]

Подскажите, пожалуйста, как мне перовести циклическую перестановку столбцов в матрице m*n : 2 вместо 1, 3 вместо 2..., первый вместо последнего. Только основу, дальше сам как-нить!

[GoodWind]

нечто вроде:

const n=5;
        m=3;

var a:array[m,n] of byte;
     i,j:integer;
     t:byte;
begin
{наполнение матрицы}
for i:=0 to m do
  begin 
   t:=a[i,0];
   for j:=0 to n-1 do a[i,j]:=a[i,j+1];
   a[i,n]:=t;
  end;
{вывод матрицы}
end.