| 
 Прошлась по шагам (F7) и когда выхожу со строчки с 
 a[i,j] := StrToInt(StringGrid1.Cells[i,j]);
 
 вышла эта ошибка.
 
 Здесь я считываю значения с грида 1
 for i:=1 to m do
 for j:=1 to n do
 a[i,j] := StrToInt(StringGrid1.Cells[i,j]);
 
 for i:=1 to n do
 for j:=1 to q do
 b[i,j] := StrToInt(StringGrid2.Cells[i,j]);
 |