умножение значений Stringgrid

[zluchka]

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

Написала процедуру которая суммирует все значения по столбцам и выводит их в строчку ниже.
теперь нужно эту итоговую строчку умножить почленно на каждый столбец и вывести. как можно подкорректировать?

procedure TForm9.Button2Click(Sender: TObject);
var i,j: integer;
    temp: Integer;
    ar1:array[1..100] of integer;
    ar2:array[1..100] of integer;
begin
 StringGrid1.RowCount:=ADOTable1.RecordCount+3 ;
 for i:=1 to stringgrid1.ColCount-1 do
 begin
  temp:= 0;
  for j:=1 to stringgrid1.RowCount-1 do
   if stringgrid1.Cells[i,j] <>'' then
    temp:= temp+ strtoint(stringgrid1.Cells[i,j]);
  ar1[i]:=temp;
  stringgrid1.Cells[i,stringgrid1.RowCount-1]:= Inttostr(temp);
 end;
 for i := 1 to StringGrid1.ColCount-1 do
  for j := 1 to StringGrid1.RowCount-1 do
   Begin
    if stringgrid1.Cells[j,i] <>'' then
     StringGrid2.Cells[i-1,0]:=inttostr(strtoint(StringGrid1.Cells[j,i])*ar1[i]);
   End;
end;

[psycho-coder]

  for i := 0 to N do
    for l := 0 to M do
      StringGrid2.Cells[i, l] := IntToStr(massiv[i, l] * StrToInt(StringGrid1.Cells[i, l]));

Надеюсь понятно?

[zluchka]

понятно то понятно...
у меня тоже было похоже написано, но это не правильно рабит

[Stilet]

но это не правильно рабит

А че у меня такой способ работает как положено?