Найти среднее арифметическое среди элементов массива

type
  TMyArray = class
  private
    A:array of double;
  public
    constructor Init();
    function GetMid:double;
    function GetLength:dword;
    procedure Fill(var From_Iterator,To_Iterator:dword; var NewElement:double);
    procedure Output;
    destructor Free();
  end;
 
constructor TMyArray.Init();
var leng,i:dword;
begin
  write('Input n : ');
  Readln(leng);
  SetLength(A,leng);
  for i:=0 to leng-1 do
      begin
       write('Input A(',i+1,') : ');
       Readln(A[i]);
      end;
end;
 
destructor TMyArray.Free();
begin
  SetLength(A,0);
end;
 
function TMyArray.GetLength:dword;
begin
  GetLength:=Length(A);
end;
 
function TMyArray.GetMid:double;
var mid:double=0;
    i:dword;
begin
  for i:=0 to Length(A)-1 do mid+=A[i];
  GetMid:=mid/Length(A);
end;
 
procedure TMyArray.Fill(var From_Iterator,To_Iterator:dword; var NewElement:double);
var tmp:dword;
begin
  tmp:=From_iterator;
  for tmp:=From_iterator to To_Iterator-1 do A[tmp]:=NewElement;
end;
 
procedure TMyArray.Output;
var i:dword;
begin
  for i:=0 to Length(A)-1 do
      Write(A[i]:5:3,' ');
  Writeln;
end;
 
var
    MyArray:TMyArray;
    middle:double;
    start,stop:dword;
begin
   try
     MyArray:=TMyArray.Init();
     middle:=MyArray.GetMid;
     Writeln('Middle = ',middle:5:3);
 
     with MyArray do
     if middle>=0
     then
        begin
          start:=0;
          stop:=GetLength div 2;
        end
     else
        begin
          start:=GetLength div 2;
          stop:=GetLength;
        end;
 
     MyArray.Fill(start,stop,middle);
 
     MyArray.Output;
     Readln;
   finally
     MyArray.Free();
   end;
end.