Определить разность между средним арифметическим элементов массива и средним арифметическим максимального и минимального элементов - Delphi - Ответ 3176616

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    Edit3: TEdit;
    CheckBox2: TCheckBox;
    Edit4: TEdit;
    CheckBox3: TCheckBox;
    Edit5: TEdit;
    Label3: TLabel;
    Edit6: TEdit;
 
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a:array of array  of integer;
  i,j,n,m:integer;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(edit1.Text);
m:=strtoint(edit2.Text);
stringgrid1.RowCount:=n;
stringgrid1.ColCount:=m;
setlength(a,n,m);
randomize;
for i:=0 to n-1 do
for j:=0 to m-1 do
   begin
        a[i,j]:=round(20*random);
        stringgrid1.Cells[j,i]:=inttostr(a[i,j]);
 
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var min,Sum,max:integer;
 Smm, Smas,R:real;
begin
Sum:=0;
   Sum:=Sum+a[i,j];
      if checkbox1.checked then
        begin
        max:=a[0,0]; min:=a[0,0];
        for i:=0 to n-1 do
          for j:=0 to m-1 do
            begin
            if a[i,j]>max then max:=a[i,j];
            if a[i,j]<min then min:=a[i,j];
            end;
         edit3.text:= 'max = '+inttostr(max);
          edit4.text:= 'min = '+inttostr(min);
             edit5.text:= 'Sum = '+inttostr(Sum);
        end;
 Smas:=Sum/20;
 Smm:=(max+min)/2;
 R:= Smas-Smm;
end;
end.