Двумерный массив delfi

[hl_anton]

Доброго времени суток, товарищи. Прошу вас помочь решить задачу на двумерные массивы.

Задача:Составьте программу циклической перестановки столбцов двумерного массива K, при которой i-й столбец становится i+1-м, а последний столбец становится первым.

Вот то что я написал:

procedure TForm3.btn3Click(Sender: TObject);
 var
 i,j:Integer;
begin
Randomize;
m:=strtoint(edt1.Text)+1;
n:=strtoint(edt2.Text)+1;
strngrd1.RowCount:=m;
strngrd1.ColCount:=n;
  If chk1.Enabled=True
  then
      for i:=1 to m do
        for j:=1 to n do
          begin
          K[i,j]:=Random(20);
            strngrd1.cells[i,j]:=IntToStr(K[i,j]);
          end;
end;
procedure TForm3.btn4Click(Sender: TObject);
var
 i,j:Integer;
 T:array [1..100,1..100] of Integer;
begin
strngrd2.RowCount:=m;
strngrd2.ColCount:=n;
for i:=2 to m do
for j:=1 to n do
 begin
 if i=m then
  begin
  T[1,j]:=K[m,j];
  T[m,j]:=K[m-1,j];
  end
  else
  T[i,j]:=K[i-1,j];
end;
for i:=1 to m do
for j:=1 to n do
 strngrd2.cells[i,j]:=IntToStr(T[i,j]);
end;

Данная программа заменяет все столбцы кроме первого. Не подскажете в чём дело?

[hl_anton]

Массив К объявлен глобально, если что.

[hl_anton]

Неужели никто не подскажет?

[Mad_Cat]

T тут зачем если K глобальный?

begin
for i:=m+1 downto 2 do
for j:=1 to n do
 begin
  K[j,i]:=K[j,i-1];
end;
for j:=1 to n do
k[1,j]:=k[m+1,j];
for i:=1 to m do
for j:=1 to n do
strngrd2.cells[i,j]:=IntToStr(K[j,i]);

[hl_anton]

Сообщение от Mad_Cat

T тут зачем если K глобальный?

Мне нужно вывести на экран оба массива и неизменённый массив К и новый массив Т.

[Mad_Cat]

Мне нужно вывести на экран оба массива и неизменённый массив К

Дык выведи в 1 грид неизменённый K
А в другой изменённый K
Нужен будес старый массив считай обратно из Грида

[hl_anton]

Mad_Cat, спасибо. Но я не совсем понял зачем столько много циклов.

[hl_anton]

Mad_Cat, вот что получилось.

[Mad_Cat]

var i,j:integer;
begin
 Randomize;
 // заполним  1 массив
  for i:=0 to n-1 do
  for j:=0 to n-1 do  begin
  K[i,j]:=Random(25)-12;
  strngrd1.Cells[j,i] := IntToStr(k[i,j]);
  end;
 //  подвинем на 1 столбец вправо
 for j:=n downto 1 do
 for i:=0 to n-1 do
 k[i,j]:=k[i,j-1];

 for i:= 0 to n-1 do
 k[i,0]:=k[i,n];

 for i:=0 to n-1 do
  for j:=0 to n-1 do  begin
  strngrd2.Cells[j,i] := IntToStr(k[i,j]);
  end

[hl_anton]

Спасибо, мэдкэт^^