перемножение матриц

[mozg2011]

помогите перемножение матриц доделать, а то времени нет
вот код!! заранее благодарю:

procedure TForm3.Multiply;
var
w,c: string;
q: Integer;
begin
for i := 0 to SG1.ColCount-1 do
for j := 0 to SG2.RowCount-1 do
SG3.Cells[i,j]:='0';
begin
for q := 0 to SG1.ColCount-1 do
begin
w:=IntToStr(StrToInt(SG1.Cells[i,q])*StrToInt(SG2.Cells[q,j]));
SG3.Cells[i,j]:=IntToStr(StrToInt(SG3.Cells[i,j])+StrToInt(w));
end;
end;

end;

[mozg2011]

все не надо, понял что я лох)