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

[Kit]

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

[volvo]

Матрица M строк на N столбцов:

var
  i, j, T: integer;
...
  for i := 1 to m do begin
    T := a[i, 1];
    for j := 2 to n do
      a[i, j - 1] := a[i, j];
    a[i, n] := T;
  end;
...