function gfniMax(const iNum: array of Integer): Integer;
//引数中の最大値を返す。
var
  i: Integer;
begin
  Result := iNum[0];
  for i := 1 to High(iNum) do begin
    if (iNum[i] > Result) then Result := iNum[i];
  end;
end;

  Result := gfniMax([3, 8, 10, 2, 4]);  //Result は 10