Задача по Delphi 7: StringGrid с целыми числами, найти наибольшую суммы элементов столбцов или наибольшую суммы элементов строк

[Ard123]

есть таблица StringGrid1 , кнопка , поле Edit3.

когда ввёл целые числа в ячейки таблицы нужно чтобы при нажатии на кнопку происходил расчет наибольшей суммы элементов столбцов или наибольшей суммы элементов строк, а результат отображался в Edit3.

я пытался найти сумму элементов одного столбца так
for j:=1 to j do begin Y:= a[1,j]; X:= X + Y; end;
но дело в том что он считает сумму всех элементов.
a - это двумерный массив, в который я поместил элементы таблицы

[MihalNik]

for j:=1 to j do begin
Не используйте j - плохая совместимость с i. Используйте k

[Ard123]

поменял j на k
ничего не изменилось

[MihalNik]

А к-во элементов где указывать надо?

[Ard123]

количество элементов указывать не надо. Таблица 4 столбца на 30 строк. Вводить произвольное количество цифр от 1 до 10. Все ячейки где цифр нет считаются за 0.

[Ard123]

вот обработчик события таблицы

procedure Tlab3.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
//Событие возникает при завершении редактирования
// ячейки (ACol, ARow). В параметре Value обработчик
// получает результат вывода или редактирования текста.
var
b: real; j:byte;
//b - вещественное значение строки редактирования.
//j - параметр цикла для текущего номера столбца матрицы a.
begin
 With StringGrid1 do
  Begin
   If   Value = ' ' then Exit; //Если ничего не введено, то выйти из процедуры
   //Начало защищенного блока.
   Try b:=StrToFloat(Value)
    Except ShowMessage('Не верный символ! '); b:=0;
    end; //Конец защищенного блока.
    //Игнорировать неверно введенную оценку.
    If (b<1) or (b>10) then begin  Cells[ACol,ARow]:= ' '; Exit; end;
    Cells[ACol,ARow]:= Value;//Отразить оценку в таблице.
    a[ARow,ACol]:=b; //Записать оценку в массив.
    //Далее подсчет среднего балла.
    ss[ARow]:=0;
    for j:=1 to 4 do ss[ARow]:=ss[ARow] + a[ARow,j];
    ss[ARow]:= ss[ARow]/4;
    //Отобразить средний балл в 5-ом столбце таблицы.
    Cells[5,ARow]:= FormatFloat('##.##', ss[ARow])
    End;    
End;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.