[Restart]

Мне нужно чтобы программа считала сумму всех ячеек столбца и выводила их в другой Stringrid.

Код:

var
  Form1: TForm1;
  SG1  :  Array[1..5,1..4] Of integer;  //входной массив (стринггрид1)
  SG2  :  Array[1..4] Of integer;	  //исходной массив (стринггрид2)
  i, j, s :  Integer;                          //переменные...(сумма, строки, столбцы)

Код:

begin
   For i:=1 To 5 Do
   For j:=1 To 4 Do
    If  (StrnGrd1.Cells[j-1,i-1]='') Then
      SG1[i,j] := 0
    Else
      SG1[i,j] := StrToInt(StrnGrd1.Cells[j-1,i-1]);  //если ячейки пустые, записать туда "ноль"
For i:=1 To strngrd1.ColCount Do                       //для каждого столбца
    Begin
S:=0;
for j:=1 to 5 do begin                                      //считаем сумму каждой ячейки
     S:=s+SG1[i,j];
end;
    SG2[i]:=S;                                                //присваиваем сумму ячейке матрицы SG2
    End;

   For i:=1 To 4 Do                                    
   StrnGrd2.Cells[0,i-1] := FloatToStr(SG2[i])      //Вывод в другой стринггрид (Stringgrid2 или strngrd)
end;

StrnGrd - тоже самое, что и stringgrid.

Программа работает, но считает неправильно.
В чем может быть проблема?


http://clip2net.com/s/54UMIS - картинка