Для каждой строки массива найти среднее арифметическое четных элементов

var x,s:integer;
r:real;
begin
for i:=1 to m-1 do begin
x:=0; s:=0; r:=0;
If ((a[i,j] mod 2) = 0) then begin
s:=s+a[i,j];
x:=x+1;
end;
r:=s/x;
r:=roundto(r,-1);
ListBox1.Items[j]:=floattostr(r);
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, Math;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    Button3: TButton;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
Var A: array of array of integer;
    i,j,n,m:integer;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
stringGrid1.Cells[0,0]:='Ìàññèâ';
for i:=1 to stringgrid1.ColCount do stringgrid1.Cells[i,0]:=inttostr(i);
for i:=1 to stringgrid1.rowcount do stringgrid1.Cells[0,i]:=inttostr(i);
edit1.SetFocus;
edit1.Enabled:=true;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=false;
bitbtn4.Enabled:=false;
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=false;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if bitbtn1.tag=0 then begin
try
n:=strtoint(edit1.Text )
except
showmessage('Ââåäèòå öåëîå ÷èñëî!');
edit1.Clear;
edit1.setfocus;
exit
end;
if n<=0 then begin
showmessage('Ââåäèòå öåëîå ÷èñëî!');
edit1.Clear;
edit1.setfocus;
exit
end;
bitbtn1.tag:=1;
edit1.Clear;
Label1.Caption:='Êîë-âî ñòîëáöîâ';
edit1.setfocus
end
else begin
try
m:=strtoint(edit1.Text)
except
showmessage('Ââåäèòå öåëîå ÷èñëî!');
edit1.Clear;
edit1.setfocus;
exit
end;
if m<=0 then begin
showmessage('Ââåäèòå öåëîå ÷èñëî!');
edit1.Clear;
edit1.setfocus;
exit
end;
bitbtn1.Enabled:=false;
edit1.Enabled:=false;
button1.Enabled:=true;
button2.Enabled:=true;
button3.Enabled:=true;
SetLength(A,n,m);
StringGrid1.ColCount:=m+1;
StringGrid1.RowCount:=n+1;
for i := 1 to stringgrid1.ColCount do stringgrid1.Cells[i,0]:=inttostr(i);
for i := 1 to stringgrid1.rowcount do stringgrid1.Cells[0,i]:=inttostr(i);
StringGrid1.Enabled:=True;
Randomize;
for i:=0 to n-1 do
for j:=0 to m-1 do
begin
A[i,j]:=random(500);
if random(2)=1 then A[i,j]:=-A[i,j];
StringGrid1.Cells[j+1,i+1]:=inttostr(A[i,j]);
end;
end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var min:integer;
count:integer;
begin
listbox1.Clear;
for j:=0 to n-1 do begin
min:=A[0,j];
for i:=1 to m-1 do
if A[i,j]<min then
min:=A[i,j];
ListBox1.Items[j]:=inttostr(min);
end;
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=false;
bitbtn2.Enabled:=true;
bitbtn4.Enabled:=true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var x,s:integer;
r:real;
begin
for i:=1 to m-1 do begin
x:=0; s:=0; r:=0;
If ((a[i,j] mod 2) = 0) then begin
s:=s+a[i,j];
x:=x+1;
end;
r:=s/x;
r:=roundto(r,-1);
ListBox1.Items[j]:=floattostr(r);
end;
listbox1.Clear;
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=false;
bitbtn2.Enabled:=true;
bitbtn4.Enabled:=true;
end;

for i:=0 to m-1 do
 begin
  x:=0;
  s:=0;
  for j:=0 to n-1 do
  if a[i,j] mod 2=0 then
   begin
    s:=s+a[i,j];
    x:=x+1;
   end;
  if x=0 then Memo1.Lines.Add('в строке '+inttostr(i)+' четных элементов нет')// или Lisbox
  else Memo1.Lines.Add('в строке '+inttostr(i)+' среднее четных элеметов='+formatfloat('0.00',s/x);
end;