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

var
  Form1: TForm1;
  a: array of array of real;
  m,n: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблицы
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=40;
  scrollBars:=ssBoth;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
//проверим ввод размеров
val(Edit1.Text,m,i);
if (i<>0)or not(m in [1..20])then
 begin
  ShowMessage('Неверно введено количество строк');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
val(Edit2.Text,n,i);
if (i<>0)or not(n in [1..20])then
 begin
  ShowMessage('Неверно введено количество столбцов');
  Edit2.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;
setlength(a,m,n);
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=10*random;
  StringGrid1.Cells[j,i]:=FloatToStrF(a[i,j],ffFixed,6,2);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
    mx,sm:real;
begin
sm:=0;
for i:=0 to m-1 do
 begin
  mx:=a[i,0];
  for j:=1 to n-1 do
  if a[i,j]>mx then mx:=a[i,j];
  sm:=sm+mx
 end;
Edit3.Text:='Сумма максимальных значений строк='
             +FloatToStrF(sm,ffFixed,6,2);
end;