перемножение квадратных матриц

[bin11]

помогите найти найти ошибку при перемножении квадратных матриц. Язык Delphi. вот код:

begin
strngrd1.RowCount:=StrToInt(Edit1.Text); strngrd2.RowCount:=StrToInt(Edit1.Text);
Strngrd1.ColCount:=StrToInt(Edit1.Text);  strngrd2.colCount:=StrToInt(Edit1.Text);
Stringgrid1.colcount:=StrToInt(Edit1.Text);
Stringgrid1.RowCount:=StrToInt(Edit1.Text);

   n:=StrToInt(Edit1.Text);
   SetLength(a,n,n);  SetLength(b,n,n); SetLength(c,n,n);
   randomize;
   for i:=0 to n do begin
    for j:=0 to n do begin

        a[i,j]:=random(10);end;  ----почему-то всегда выделяет эту строчку :confused:
      StrnGrd1.Cells[i,j] :=floattostr(a[i,j]);
      b[i,j]:=1/((i+1)+(j+1)-1);
      StrnGrd2.Cells[i,j]:=floattostr(b[i,j]);
                     end;
    for i:=0 to n do begin
                   for j:=0 to n-1 do  begin
                   begin
                     c[i,j]:=0;
                     for k:=0 to n-1 do
                       c[i,j]:=c[i,j]+a[i,k]*b[k,j];

                    end;  end; end;


    for i:=0 to n do begin
    for j:=0 to n do begin
      Stringgrid1.Cells[i,j]:=floattostr(c[i,j]);

    end;
 end;
      lbl1.Caption:=floattostr(c[1,1]);

Заранее спасибо!

[Stilet]

помогите найти найти ошибку

Че ее искать то? Смотри в окошко сообщений компилятора - найдешь свою ошибку.