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

[Loqwer78rus]

Не могу понять почему две матрицы 3на3 умножаются криво при a[i,j]:=StrToInt(StringGrid1.Cells[i,j]); а при StringGrid1.Cells[j,i] всё работает нормально. И тоже самое в выводе, нужно менять местами столбцы со строками. Объясните пожалуйста

//////////////////////////////////////////////////////
i,j,f:integer;
a,b,c:array[1..3,1..3] of integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to 3 do
for j:=1 to 3 do
begin
a[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
b[i,j]:=StrToInt(StringGrid2.Cells[i,j]);
end;
for i:=1 to 3 do
for j:=1 to 3 do
begin
c[i,j]:=0;
for f:=1 to 3 do
c[i,j]:=c[i,j]+a[i,f]*b[f,j];
StringGrid3.Cells[j,i]:=IntToStr(c[i,j]);
end;
end;

[Аватар]

Какой-то умник в Cells индекс колонки сделал 1-ым, строки - 2-ым. Так что приспосабливайся. Ну и в хелп заглянуть не мешает, там есть это. Про умника правда ни слова