StringGrid: найти произведение матриц

[kostya_hor]

Ребятки,помогите пожлуйста
Данны матрицы А и В размера k*m и m*l соответственно. Найти произведение АВ.
мне кажется что код работает не совсем правильно

const  nmax=10;
var a,b,c:array[1..nmax,1..nmax] of integer;
  h,  k,m,l,i,j,p,s:integer;
begin

repeat
k:=strtoint(Edit1.text);  
until k in [1..nmax];
repeat
m:=strtoint(Edit3.text); 
until m in [1..nmax];
repeat
l:=strtoint(Edit3.text);
until l in [1..nmax];
repeat
h:=strtoint(Edit3.text); 

until h in [1..nmax];


for i:=1 to k do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(10);
    stringgrid1.Cells[j,i]:=inttostr(a[i,j]); 

   end;

 end;

for i:=1 to m do
 begin
  for j:=1 to l do
   begin
    b[i,j]:=random(10);
    stringgrid2.Cells[j,i]:=inttostr(b[i,j]);

   end;

 end;
for p:=1 to k do
for j:=1 to l do
 begin
  c[p,j]:=a[p,1]*b[1,j];;
  for i:=2 to m do
  c[p,j]:=c[p,j]+a[p,i]*b[i,j];
 end;

for i:=1 to k do
 begin
  for j:=1 to l do
  stringgrid3.Cells[j,i]:=inttostr(c[i,j]); 

 end;
 end;

[evg_m]

...
k:=strtoint(Edit1.text);  
m:=strtoint(Edit3.text); 
l:=strtoint(Edit3.text);
h:=strtoint(Edit3.text);

именуйте компоненты на формы осмысленно!

[kostya_hor]

Сообщение от evg_m

именуйте компоненты на формы осмысленно!

так?

k:=strtoint(Edit1.text); //  Строчки
m:=strtoint(Edit2.text); // Столбики
l:=strtoint(Edit3.text);
h:=strtoint(Edit4.text);

[kostya_hor]

Вот картинка

[Serge_Bliznykov]

Сообщение от kostya_hor

Данны матрицы А и В размера k*m и m*l соответственно.

вижу k m l
откуда взялось h ?
и, главное, для чего Вы ещё одну придумали переменную? Чтобы задача не имела решения?

вам нужно:

  k:=strtoint(Edit1.text); 
  m:=strtoint(Edit2.text);
  l:=strtoint(Edit3.text);

m нужно вводить один раз (а не два, как у Вас на форме).

[kostya_hor]

Сообщение от Serge_Bliznykov

вам нужно:

вот такое решение нормально будет?

[Serge_Bliznykov]

Сообщение от kostya_hor

вот такое решение нормально будет?

вроде бы - да.