Процедура

[vovjkee]

Здравствуйте, есть процедура на кнопке

Код Delphi

procedure TForm1.Button3Click(Sender: TObject);
begin
For i:=1 To 4 Do
For j:=1 To 5 Do
If (StringGrid1.Cells[j-1,i-1]='') Then
SG1[i,j] := 0
Else
SG1[i,j] := StrToFloat(StringGrid1.Cells[j-1,i-1]);
For i:=1 To 4 Do
Begin
max := SG1[i,1];
For j:=2 To 5 Do
If (SG1[i,j] > max) then
max := SG1[i,j];
SG2[i] := max;
End;
For i:=1 To 4 Do
StringGrid2.Cells[0,i-1] := FloatToStr(SG2[i])
end;

Сейчас она выполняет вывод значений элементов максимальных значений элементов ряда двухмерного массива.
Нужно сделать что бы она выводила - Значения элементов одномерного массива состоят из максимальных значений элементов строк двумерного массива.

Помогите, кто чем может