Вопросы по Delphi

[Dinkall]

Помогите решить задачу в делфи! Вот задача:Сформировать вектор D=(d1,d2,...,dk), каждый элемент которого представляет собой среднее арифметич значение элементов строк матрици С( k,m)? и вектор
G(g1,g2,...,gm), каждый элемент которого представляет собой произведение элементов столбцов матрицы С( k,m).

я создала двумерный массив и заполнила его случайными числами. Вот код:
procedure TForm2.SpeedButton1Click(Sender: TObject);

var
  I, J, K : Integer;
begin
  K := 0;
  with StringGrid1 do
    for I := 0 to ColCount - 1 do
      for J:= 0 to RowCount - 1 do
        begin
          K := K + random(50);
          Cells[I,J] := IntToStr(K);
        end;

end;

как почтупить дальше, чтобы в одномерный массив в компонент StringGrid вывести эти значения арифметического и произведения?

[Mad_Cat]

{произведение}
for I := 0 to StringGrid1.colCount - 1 do begin
p:=1;
for J:= 0 to StringGrid1.rowCount - 1 do
p:=p*strtoint(stringgrid1.cells[i,j]);
stringgrid3.cells[i,0]:=inttostr(p);
end;
{ср.ар}
for I := 0 to StringGrid1.rowCount - 1 do begin
p:=0;
for J:= 0 to StringGrid1.colCount - 1 do
p:=p+strtoint(stringgrid1.cells[i,j]);
stringgrid2.cells[i,0]:=floattostr(p/stringgrid1.colcount);
end;