Определить сумму максимальных элементов всех строк матрицы

procedure TForm1.Button1Click(Sender: TObject);
var
   A: array[1..3, 1..3] of integer;
   i, j, S, max: integer;
begin
     randomize;
     for i := 1 to 3 do
       for j := 1 to 3 do
         A[i, j] := RandomRange(-10, 10);
 
     S := 0;
     for i := 1 to 3 do
       begin
         max := A[i, 1];
         for j := 2 to 3 do
           if (max < A[i, j]) then
             max := A[i, j];
         S := S + max;
       end;
end;

Uses Math;

var
   A: array[1..3, 1..3] of integer;
   i, j, S, max: integer;
begin
     randomize;
     for i := 1 to 3 do
       for j := 1 to 3 do begin
         A[i, j] := RandomRange(-10, 10);
         StringGrid1.Cells[i,j]:=A[i, j];
      end;
     S := 0;
     for i := 1 to 3 do
       begin
         max := A[i, 1];
         for j := 2 to 3 do
           if (max < A[i, j]) then
             max := A[i, j];
         S := S + max;
        Label1.caption:='Сумма максимальных элементов - '+inttostr(s);
       end;

StringGrid1.Cells[i,j]:=inttostr(A[i, j]);

StringGrid1.Cells[j, i] := IntToStr(A[i, j]);