[whitehustle]

Вылетает ошибка " is not a valid integer value ". Как понял, то тут что-то с типом данных, но вроде всё окей.
Пробовал менять типы, но error все равно.
В общем кому не тяжело, то поставьте на путь истинный.

Код:

type matrix= array [1..3, 1..3] of real;

    var
  Form1: TForm1;
  A, B, C: matrix;
  i, j, m, n, l, k: byte;
  s: real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=3;
m:=3;
l:=3;
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[k,i]*B[j,k];
C[i,j]:=s;
end;
for i:=1 to n do
for i:=1 to m do
StringGrid3.Cells[i, j]:=FloatToStrf(C[i,j], fffixed, 3,1);
end;

[Drozh]

У вас массивы имеют начальный индекс 1, а StringGrid'ы начинаются с 0 (в вашем случае: без фиксированных строк и столбцов).
Да, и в последнем вложенном цикле дважды повторяется переменная i

[whitehustle]

Невнимательность меня погубит %)
спасибо, теперь все работает)