Динамические структуры данных: среднее арифметическое элементов массива

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Grids;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 Type
 Mas=array[1..1] of integer;  // массив целочисленных значений
 pMas=array[1..1] of ^mas;    // массив указателей
var                           // объявление глобальных переменных
 pA:^pMas;                    // указатель на массив указателей
 m,n,max,min:integer;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 m:=6;                    // начальное значение m
 n:=8;                    // начальное значение n
 SpinEdit1.Text:='6';  SpinEdit2.Text:='8';
 StringGrid1.RowCount:=m;  // количество строк
 StringGrid1.ColCount:=n;  // количество столбцов
 
end;
 
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
 m:=StrToInt(SpinEdit1.Text);// m присваивается содержимое поля редактора
 StringGrid1.RowCount:=m;
 
end;
 
procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
 n:=StrToInt(SpinEdit2.Text);// n присваивается содержимое поля редактора
 StringGrid1.ColCount:=n;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 label 1;
var
 i,j,k,l,r:integer;st:integer;
begin
 Randomize;        // инициализация датчика случайных чисел
 GetMem(pA,4*m);   // выделение памяти для массива из m указателей
 for i :=1 to m do
  begin            // формирование i-й строки массива
   { Выделение памяти для n элементов i-й строки}
   GetMem(pA^[i],SizeOf(integer)*n);
   pA^[1]^[1]:=Random(1000);// случайное целое число занести в массив
   for j:=1 to n do
    begin          // формирование j-го элемента строки
     1: r:=Random(1000);   // генерирование случайного числа
     for k:=1 to i do
      for l:=1 to j do
       if r=pA^[k]^[l] then // если такое число уже есть в массиве тогда...
                        goto 1;
     pA^[i]^[j]:=r; // случайное число занести в массив
    end;
  end;
 
  for i:=1 to m do  // элементы массива занести в ячейки
   for j:=1 to n do // компонента StringGrid1
    StringGrid1.Cells[j-1,i-1]:=IntToStr(pA^[i]^[j]);
 
 
  Label7.Caption:=IntToStr(st);
 for i:=1 to m do
  { Освобожение памяти, занимаемой n элементами i-й строки}
  FreeMem(pA^[i],SizeOf(integer)*n);
 { Освобождение памяти, занимаемой массивом из m указателей}
 FreeMem(pA,4*m);
 
end;
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
  for i:=0 to 9 do
   begin
    for j:=0 to 15 do
     begin
      StringGrid1.Cells[j,i]:='';
     end;
    end;
 
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    LabeledEdit1: TLabeledEdit;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
   
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 i: integer;
 sum: real;
  A: array of real;
    n: integer;
    avg: real;
begin
   sum:=0;
   n:= StrToInt(LabeledEdit1.Text);
   SetLength(A, n);
   StringGrid1.ColCount:= n;
   Randomize;
   for i:=0 to n-1 do
   begin
   A[i]:= Random(1000);
   sum:=sum+A[i];
   StringGrid1.Cells[i, 0]:= FloatToStr(A[i]);
   end;
   avg:= sum/n;
   Label1.Caption:= FloatToStr(avg);
end;
 
end.