Procedure auf mehrere Berechn. auslegen zB(+)o.(,)übergeben

[Hallo_Thomas]

Hallo,
kann ich folgende 2 Proceduren zusammenfassen, hab da echt keinen Plan unter was ich da suchen sollte, bzw. obs sowas überhaupt geht:

Die Zwei Proceduren:

Delphi-Quellcode:

procedure TCount.Counter(Counter:array of Integer;Var Counte:array of Integer);
var x:Integer;
begin
    Counte[1]:= MinIntValue([Counter[48],Counter[50],Counter[51]]);
     ///Und das geht immer so weiter.........
end;

Delphi-Quellcode:

procedure TCount.Counter(Counter:array of Integer;Var Counte:array of Integer);
var x:Integer;
begin
    Counte[1]:=([Counter[48]+Counter[50]+Counter[51]]);
     ///Und das geht immer so weiter.........
end;

Und so ungefähr, sollte die Zusammengefasste Procedure aussehen:

Delphi-Quellcode:

procedure TCount.Counter(Counter:array of Integer;Zeichen1,Zeichen2:?;Var Counte:array of Integer);
var x:Integer;
begin
    Counte[1]:=Zeichen1([Counter[48] Zeichen2 Counter[50] Zeichen2 Counter[51]]);
     ///Und das geht immer so weiter.........
end;