Delphi: Помогите наити ошибку в решений

[filru]

Собственно сама задачка звучит так:

Даны две квадратные целочисленные матрицы a и b размера 3х3. Создать приложение с главным меню для выбора одной из трёх команд, позволяющих найти
5*a + b
a – 2*b
2* a * b

У меня получилась вот такая процедура, но она не правильно считает:

procedure TForm1.N2ab1Click(Sender: TObject);
begin
for i:=0 to 2 do
for j:=0 to 2 do begin s:=0;
for k:=0 to 2 do
s:=s+2*((strtoint(stringgrid1.cells[i,k]))*(strtoint(stringgrid2.cells[k,j])));
stringgrid3.cells[i,j]:=inttostr(s);
end;
end;

Помогите пожалуйста решить правильно задачку

[MadReason]

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