задача на двумерный массив (delphi)

[Toxi]

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

Выход за границы массива!

я конечно дико извеняюсь за свою надоедливость но что сделать, чтобы не выходить за границы массива?)

[Hacker19_90]

но что сделать, чтобы не выходить за границы массива?)

просто не выходить!
Полный код в студию!

[Toxi]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Button2: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:array of array of integer;
  n,m:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
randomize;
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
setlength(a,n,m);
for i:=0 to n-1 do
  for j:=0 to m-1 do
    a[i,j]:=random(51)-25;
stringgrid1.rowcount:=n+1;
stringgrid1.ColCount:=m+1;
with stringgrid1 do
  begin
   i:=0;
   for j:=1 to rowcount do
    cells[i,j]:=inttostr(j);
   j:=0;
   for i:=1 to colcount do
    cells[i,j]:=inttostr(i);
  end;
with stringgrid1 do
  for i:=1 to n do
    for j:=1 to m do
      cells[j,i]:=inttostr(a[i-1,j-1]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,j,k:integer;
begin
for i:=1 to n do
begin
  a[i,0]:=a[i,m-1];
  a[i,m-1]:=k;
  StringGrid2.Cells[j-1,i-1]:=IntToStr(a[i,j-1]);
end;
for i:=1 to n do
    for j:=1 to m do
      StringGrid1.cells[j,i]:=inttostr(a[i-1,j-1]);
 end;


end.

[Hacker19_90]

procedure TForm1.Button2Click(Sender: TObject);
var
i,j,k:integer;
begin
for i:=1 to n do
begin
  a[i,0]:=a[i,m-1];
  a[i,m-1]:=k;
  StringGrid2.Cells[j-1,i-1]:=IntToStr(a[i,j-1]);
end;

Обьясняю
переменные i, j локальные
Их значения равны 0 (наверно)
Так вот
Смотрим сюда

StringGrid2.Cells[j-1,i-1]:=IntToStr(a[i,j-1]);

И что видим?
Правильно! -1 столбец в стрингриде!

[Toxi]

эмм...

[Hacker19_90]

Надо исправить!