двумерный массив

[Laplas]

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

[VVkSoft]

вот функции

procedure TShifrObj.vlevo(k, RowNo, AType: integer; var mas: TShTxt);
var
 i, n, j:integer;
 q: char;
begin
  k := abs(k);
  n := length(Mas[0]);
  case AType of
    -1,0: begin
      for i:=1 to k do
        begin
          for j:=0 to n-1 do
            if j=0 then
              q:=mas[RowNo,j]
            else
            begin
              mas[RowNo,j-1]:=mas[RowNo,j];
            end;
          mas[RowNo,n-1]:=q;
        end;
    end;
    1: begin
      n := length(Mas);
     for i:=1 to k do
        begin
          for j:=0 to n-1 do
            if j=0 then
              q:=mas[j,RowNo]
            else
            begin
              mas[j-1,RowNo]:=mas[j,RowNo];
            end;
          mas[n-1,RowNo]:=q;
        end;
    end;
end;

end;

procedure TShifrObj.vpravo(k, RowNo, AType: integer; var mas: TShTxt);
var
 i, n, j:integer;
 q: string;
begin
  n := length(Mas[0]);
  case AType of
    -1,0: begin
      for i:=1 to k do
        begin
          for j:=n-1 downto 0 do
            if j=n-1 then
              q:=mas[RowNo,n-1]
            else
            begin
              mas[RowNo,j+1]:=mas[RowNo,j];
            end;
          mas[RowNo,0]:=q[1];
        end;
    end;
    1: begin
      n := length(Mas);
      for i:=1 to k do
        begin
          for j:=n-1 downto 0 do
            if j=n-1 then
              q:=mas[n-1,RowNo]
            else
            begin
              mas[j+1,RowNo]:=mas[j,RowNo];
            end;
          mas[0,RowNo]:=q[1];
        end;
    end;

end;
end;

где
k-количество елементов сдвига
RowNo-номер рядка/стовбця
AType-тип работи: "-1, 0" - ствиг по рядкам [i], "1" - по столбцам [j];
var mas - масив [i,j] двухвимырной описаний в Type
integer; var mas: TShTxt

[Fantazerishka]

For i:=1 to m do begin
For j:=1 to n do begin
b:=a[i,j]; a[i,j]:=a[m,j]; a[m,j]:=b;
end; end;

Примерно так, не проверял...
проверил, норм работает...

[VVkSoft]

ети функции работают с любим двохвимирним массивом с неровними сторонами
с помощью их у меня работае простое шифрования

[Fantazerishka]

VVksoft, ты меня удивил своим постом) Я даже проверил будет ли работать мой маленький кусок)

[Laplas]

спасибо большое за помощь