матрицу умножить на столбец

[Asema]

квадратную матрицу умножить на столбец

for i:=1 to n do 
begin 
s:=0; 
for j:=1 to n do 
begin 
s:=s+strtoint(StringGrid4.Cells[j,i])*strtoint(form1.StringGrid2.cells[j,i]); здесь я писала и с строки и столбцы . а надо на столбец только умножить 
end; 
StringGrid6.Cells[j, i]:=IntToStr(s);

[Sciv]

s:=s+strtoint(StringGrid4.Cells[j,i])*strtoint(form1.StringGrid2.cells[1,j]); ну так и умножайте только на столбец :)