Вычислить суммы элементов каждой строки матрицы - Delphi - Ответ 5888220

var
  Form1: TForm1;
  a:array of array of integer;
  n:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
val(Edit1.Text,n,i);
if(i<>0)or(n<2) then
 begin
  ShowMessage('Размер матрицы введен неверно, повторите');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
setlength(a,n,n);
with StringGrid1 do
 begin
  fixedrows:=1;
  fixedcols:=1;
  rowcount:=n+1;
  colcount:=n+2;
  cells[n+1,0]:='Сумма';
  for i:=1 to n do
   begin
    cells[i,0]:=inttostr(i);
    cells[0,i]:=inttostr(i);
   end;
  for i:=0 to n-1 do
  for j:=0 to n-1 do
   begin
    a[i,j]:=random(50);
    cells[j+1,i+1]:=inttostr(a[i,j])
   end;  
 end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,s,mx,imx:integer;
begin
mx:=-maxint-1;
for i:=0 to n-1 do
 begin
  s:=0;
  for j:=0 to n-1 do
  s:=s+a[i,j];
  if s>mx then
   begin
    mx:=s;
    imx:=i+1
   end;
  StringGrid1.Cells[n+1,i+1]:= inttostr(s)
 end;
Edit2.Text:='Максимальная сумма='+inttostr(mx)+' в строке '+ inttostr(imx);
end;