Определение суммы каждой строки матрицы

const
n=4;
m=3;
var
Form1: TForm1;
b: array [1..n,1..m] of real;
i:integer;
j:integer;
s:real;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  s:=0;
  Randomize;
  for i:=1 to n do
  for j:=1 to m do
  begin
     b[i,j]:=Random(10);
     strngrd1.Cells[j-1,i-1]:=FloatToStr(b[i,j]);
   end;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
s:=0;
   for i:=1 to n do
   for j:=1 to m do
     begin
     if i=j then
     s:= s+b[i,j];
     edt1.Text:=FloatToStr(s);
     lbl1.Caption:='сумма'+FloatToStr(s);
   end;
end;
 
end.

const
n=4;
m=3;
var
Form1: TForm1;
b: array [1..n,1..m] of real;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
  Randomize;
  for i:=1 to n do
  for j:=1 to m do
  begin
     b[i,j]:=10*Random;
     strngrd1.Cells[j-1,i-1]:=Format('%.2f',[b[i,j]]);
   end;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
var i,j:integer;
     s:real;
begin
   for i:=1 to n do
    begin
     s:=0;
     for j:=1 to m do
     s:= s+b[i,j];
     lbl1.Caption:=lbl1.Caption+'Ñòðîêà '+inttostr(i)+Format('%.2f',[s])+#13#10;
    end;
end;