есть небольшой код скорей всего лог ошибка

[toha_master]

procedure tform4.sum;
begin
form6.show;
for i:=1 to x do
for j:=1 to y do
c[i,j]:=a[i,j]+b[i,j];
form6.show;
form6.StringGrid1.Cells[j,i]:=c[i,j];
end;

[Аватар]

есть небольшой код скорей всего лог ошибка

И что? Написать другой код, что бы другая ошибка была?

[phomm]

Вкачиваем телепатию

procedure tform4.sum;
var
  i, j: Integer;
begin
  form6.show;
  for i := 1 to x do
  for j := 1 to y do
  begin
    c[i, j] := a[i, j]+b[i, j];
    form6.StringGrid1.Cells[j, i] := c[i, j];
  end;
end;