Type
  TVector = Array[1 .. n] Of Real;
  FType = Function(X: Real): Real;

Function Func(x: Real): Real; Far;
Begin
  ... { То, что тебе надо }
End;

{ Вот эта функция возвращает сумму... }
Function VectorOps(Vec: TVector; F: FType): Real;
Var
  s: Real;
  i: Integer;
Begin
  s := 0;
  For i := 1 to n Do s := s + F(Vec[i]);
End;