[Shelby]

что здесь не так?

procedure TForm1.rzm(AStringGrid: TStringGrid);
var
i, j:integer;
a:array[1..6,1..6] of integer;
begin
for i:=0 to sp1.value-1 do
for j:=0 to sp1.value-1 do
a[i,j]:=strtoint(astringgrid.cells[i,j]);
astringgrid.cells[i,j]:=inttostr(a[i,j]);
end;