Найти среднее арифметическое каждой строки матрицы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
  var i,j,s:integer;
begin
  s:=0; 
 
    for i:=0 to StringGrid1.ColCount-1 do 
      for j:=0 to StringGrid1.RowCount-1 do 
        If strtoint(StringGrid1.Cells[i,j])<0 then
        s:=s+StrToInt(StringGrid1.Cells[i,j]);
      Label3.Caption:=IntToStr(s);
 
  
end;
 
procedure TForm1.Button2Click(Sender: TObject);
  var i,min,a,j:integer;
begin
 
  StringGrid1.ColCount:=StrToInt(Edit1.Text);
  StringGrid1.RowCount:=StrToInt(Edit1.Text);
  Edit1.SetFocus;
   
 
end;
 
end.

procedure TForm1.ButtonClick(Sender: TObject);
var i,j:byte;
     sum:real;
begin
  for j := 0 to StringGrid1.RowCount - 1 do
  begin
    sum:=0;
    for i := 0 to StringGrid1.ColCount - 2 do
    begin
      StringGrid1.Cells[i,j]:=inttostr(Random(100)); // автоматическое заполнение
      sum:=sum+strtoint(StringGrid1.Cells[i,j]); // подсчет суммы строки
    end;
    StringGrid1.Cells[i,j]:=floattostr(sum/(StringGrid1.ColCount-1)); // заносим в последний столбец среднее арифметическое строки 
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
     sum:array of integer;
begin
  for j := 1 to StringGrid1.RowCount - 1 do
  begin
    SetLength(sum,j+1);
    for i := 1 to StringGrid1.ColCount - 1 do
      inc(sum[j],strtoint(StringGrid1.Cells[i,j]));
  end;
  StringGrid1.ColCount:=StringGrid1.ColCount+1;
  for i := 1 to StringGrid1.RowCount do
        StringGrid1.Cells[StringGrid1.ColCount-1, i] := floattostr(sum[i]/(StringGrid1.ColCount-2));
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
 var i,j:byte;
     sum:array of integer;
begin
 
for j := 1 to StringGrid1.RowCount - 1 do   // öèêë ïî ñòðî÷êàì
  begin
    SetLength(sum,j+1); //SetLength èçìåíÿåò ðàçìåð ñòðîêè
    for i := 1 to StringGrid1.ColCount - 1 do        //öèêë ïî ñòîëáöàì
      inc(sum[j],strtoint(StringGrid1.Cells[i,j]));   //ïðîöåäóðà èíê óâåëè÷èâàåò ïîðÿäêîâóþ ïåðåìåííóþ ïåðåäàííóþ åìó
  end;
  StringGrid1.ColCount:=StringGrid1.ColCount+1;
  for i := 1 to StringGrid1.RowCount do
        StringGrid1.Cells[StringGrid1.ColCount-1, i] := floattostr(sum[i]/(StringGrid1.ColCount-2));
 
  
end;
 
procedure TForm1.Button2Click(Sender: TObject);
  var i,min,a,j:integer;
begin
 
  StringGrid1.ColCount:=StrToInt(Edit1.Text);
  StringGrid1.RowCount:=StrToInt(Edit1.Text);
  Edit1.SetFocus;
   
 
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
     sum:array of integer;
begin
  for j := 0 to StringGrid1.RowCount - 1 do
  begin
    SetLength(sum,j+1);
    for i := 0 to StringGrid1.ColCount - 1 do
      inc(sum[j],strtoint(StringGrid1.Cells[i,j]));
  end;
  StringGrid1.ColCount:=StringGrid1.ColCount+1;
  for i := 0 to StringGrid1.RowCount do
        StringGrid1.Cells[StringGrid1.ColCount-1, i] := floattostr(sum[i]/(StringGrid1.ColCount-1));
end;