В каждой строке матрицы найти количество элементов, меньших среднего арифметического всех элементов этой строки.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a:array[0..10,0..10] of integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,m,n,s:integer;
 
begin
n:=StrToint(Edit1.Text);
m:=StrToint(Edit2.Text);
for i:=1 to n do
 begin
 for j:=1 to m do
 begin
 a[i,j]:=random(10);
  stringgrid1.Cells[i,j]:=intToStr(a[i,j]);
 
end;
 
 
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
b:array[1..10] of real;
a:array[0..10,0..10] of integer;
i,j,m,n,s,sum:integer;
begin
n:=StrToint(Edit1.Text);
m:=StrToint(Edit2.Text);
      for i:=1 to n do
begin
s:=0;
for j:=1 to m do
s:=s+a[i,j];
b[i]:=s/m;
      end;
              begin
 
             for i:=1 to n do   Memo1.Lines.Add(' Среднее арифметическое строк'+FloatToStr(b[i])+' ');
                         Memo1.Lines.Add('');
             for i:=1 to n do
              begin
              s:=0;
              for j:=1 to m do
              if a[i,j]<b[i] then s:=s+1;
                 Memo1.Lines.Add(' в строке '+IntToStr(i)+ ' кол-во элементов<среднего равно '+ IntToStr(s)) ;
 
 
    end;
end;
   end;
end.

var
  Form1: TForm1;
  a:array of array of integer;
  n,m:Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
VAR
i,j:Integer;
begin
//формирование матрицы А, ввод исходных данных
randomize;
n:=StrToint(Edit1.Text);
m:=StrToint(Edit2.Text);
SetLength(a, n, m);
StringGrid1.RowCount := n;
StringGrid1.ColCount := m;
for i:=0 to n-1 do
for j:=0 to m-1 do begin
    a[i,j]:=random(10);
    stringgrid1.Cells[j,i]:=intToStr(a[i,j]);
    end;
Button2.Enabled := true;
end;
procedure TForm1.Button2Click(Sender: TObject);
VAR
i,j,count:Integer;
sredneearifmeticheskoe:double;
begin
//Вычисление сред-арифм и кол-во элементов по условию задачи
Memo1.Clear;
Memo1.Lines.Add('Количество элементов, меньших среднего арифметического:');
for i:=0 to n-1 do begin
    sredneearifmeticheskoe := 0;
    count := 0;
    for j:=0 to m-1 do
        sredneearifmeticheskoe := sredneearifmeticheskoe + a[i,j];
        sredneearifmeticheskoe := sredneearifmeticheskoe / m;
    for j:=0 to m-1 do
        if a[i,j] < sredneearifmeticheskoe then Inc(Count);
    Memo1.Lines.Add('В ' + IntToStr(i) + '-ой равно = ' + IntToStr(Count));
    end;
Button2.Enabled := false;
end;