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

[Alyonka_v]

Здравствуйте!
Написала маленькую программу перемножения 2 матриц, но результат перемножения неверный=(
Помогите, пожалуйста, найти где у меня ошибка и подскажите пожалуйста как ее исправить

procedure TForm1.Button1Click(Sender: TObject);
type matrica=array[1..15,1..15] of real;
var a, b, c: matrica;
    i, j, m, n, l, k: byte;
    s: real;
begin
  n:=4;
  m:=4;
  l:=4;
  for i := 1 to n do
    for j := 1 to m do a[i,j]:=strtoint(stringgrid1.cells[i,j]);
  for i := 1 to n do
    for j := 1 to m do b[i,j]:=strtoint(stringgrid2.cells[i,j]);
  for I := 1 to n do
    for j := 1 to l do
      begin
        s:=0;
        for k := 1 to m do
          s:=s+a[i,k]*b[k,j];
        c[i,j]:=s;
      end;
  for I := 1 to n do
    for j := 1 to m do
      stringgrid3.cells[i,j]:=floattostrf(c[i,j],fffixed,4,1);
end;

[Sazary]

В Cells первое число - номер столбца, а второе - номер строки.
Исправьте вот так:

procedure TForm1.Button1Click(Sender: TObject);
type matrica=array[1..15,1..15] of real;
var a, b, c: matrica;
    i, j, m, n, l, k: byte;
    s: real;
begin
  n:=4;
  m:=4;
  l:=4;
  for i := 1 to n do
    for j := 1 to m do a[i,j]:=strtoint(stringgrid1.cells[j,i]);
  for i := 1 to n do
    for j := 1 to m do b[i,j]:=strtoint(stringgrid2.cells[j,i]);
  for I := 1 to n do
    for j := 1 to l do
      begin
        s:=0;
        for k := 1 to m do
          s:=s+a[i,k]*b[k,j];
        c[i,j]:=s;
      end;
  for I := 1 to n do
    for j := 1 to m do
      stringgrid3.cells[j,i]:=floattostrf(c[i,j],fffixed,4,1);
end;

[Alyonka_v]

Спасибо большое, теперь буду знать