type
  TCalc = class
  public
    //open array parameter
    function GetAvg(
      const Values: array of Double): Double;
  end;

function TCalc.GetAvg(
  const Values: array of Double): Double;
var
  Value, Sum: Double;
begin
  if Length(Values) = 0 then
    Exit(0);

  Sum := 0;
  for Value in Values do
    Sum := Sum + Value;
  Result := Sum / Length(Values);
end;

var
  Calc: TCalc;
  Avg: Double;
begin
  Calc := TCalc.Create;
  Avg := Calc.GetAvg([1, 2, 3, 4]);
  //avg is 2.5

  WriteLn('avg is ', Avg:0:1);
end.