Найти сумму наибольших значений элементов строк матрицы

var
  m,n:integer;
  a:array[1..100,1..100] of real;
  b:array[1..100] of real;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  m:=StrToInt(Edit1.Text);
  n:=StrToInt(Edit2.Text);
  StringGrid1.RowCount:=m;
  StringGrid1.ColCount:=n;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i,j:integer;
  sum,max:real;
begin
  for i:=1 to m do
  for j:=1 to n do
  begin
    if StringGrid1.Cells[j-1,i-1]=''
      then a[i,j]:=0
      else a[i,j]:=StrToFloat(StringGrid1.Cells[j-1,i-1]);
  end;

begin
  sum:=0;
  for i:=1 to m do
    for j:=1 to n do
      begin
      sum:=sum+a[1,j];
      b[i]:=sum;
      end;
   max:=b[1];
   for i:=1 to m do
   if max<b[i] then max:=b[i];
   Edit3.Text:=FloatToStr(max);
end;
end;
end.

begin //не нужно
  sum:=0;
  for i:=1 to m do
   begin
    max:=a[i,1];
    for j:=1 to n do
    if a[i,j]>max then max:=a[i,j];
    sum:=sum+max;
   end;
  Edit3.Text:=FloatToStr(sum);