[artemavd]

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 a:array[0..3] of integer;
 b:array[1..25] of integer;
 a1:array[0..3] of integer;
 b1:array[1..25] of integer;

 i,j,i1,j1:integer;
begin
 for i:=1 to 25 do

     SG3.Cells[0,i]:=FloatToStr(StrToFloat(SG2.Cells[0,i])+
     StrToFloat(SG2.Cells[1,i])+StrToFloat(SG2.Cells[2,i])+
     StrToFloat(SG2.Cells[3,i]));

 for j1:=1 to 25 do
     SG3.Cells[1,j1]:=FloatToStr(2*StrToFloat(SG2.Cells[0,j1])/StrToFloat(SG3.Cells[0,i])+
     3*StrToFloat(SG2.Cells[1,j1])/StrToFloat(SG3.Cells[0,i])+4*StrToFloat(SG2.Cells[2,j1])/StrToFloat(SG3.Cells[0,i])+
     5*StrToFloat(SG2.Cells[3,j1])/StrToFloat(SG3.Cells[0,i]));

end;

Первый цикл работает отлично. Нужно чтобы во втором цикле умножение на 2,3,4,5 работало и каждое так сказать "слагаемое" еще делилось на результат суммы из первого цикла и ответ выводился в следующую ячейку. Проблема в том, что если я отключаю второй цикл, то первый работает, а если включаю его, то первый работает. Выводит только сообщение об ошибке, что нет всех данных в ячейках, с этим я потом разбеусь. Помогите мне объединить эти два цикла пожалста). Может я что то лишнее написал в процедуре, не могу пока понять что. Надо чтобы в ответе выводилась дробь (потому что есть деление). Благодарю за помощь).