Процедура с разным количеством передаваемых параметров

program Project1;
 
const
  cByte     = 0;
  cChar     = 1;
  cInteger  = 2;
  cWord     = 3;
  cLongint  = 4;
  cDouble   = 5;
  cExtended = 6;
  cString   = 7;
 
type
  TVariant = record
    bType : Byte;
    case Byte of
      cByte     : ( dByte : Byte; );
      cChar     : ( dChar : Char; );
      cInteger  : ( dInteger : Integer; );
      cWord     : ( dWord : Word; );
      cLongint  : ( dLongint : Longint; );
      cDouble   : ( dDouble : Double; );
      cExtended : ( dExtended : Extended; );
      cString   : ( dString : String; );
  end;
 
function Func(const aArr : array of TVariant) : String;
var
  i, Num : Longint;
  S, sRes : String;
begin
  sRes := '';
  S := '';
  for i := 0 to High(aArr) do
  with aArr[i] do begin
    case bType of
      cByte     : Str(dByte, S);
      cChar     : S := '"' + dChar + '"';
      cInteger  : Str(dInteger, S);
      cWord     : Str(dWord, S);
      cLongint  : Str(dLongint, S);
      cDouble   : Str(dDouble:6:3, S);
      cExtended : Str(dExtended:8:4, S);
      cString   : S := dString;
      else begin
        S := '<!TYPE_ERROR!>';
      end;
    end;
 
    if sRes <> '' then sRes := sRes + ', ';
    sRes := sRes + S;
  end;
  Func := sRes;
end;
 
var
  Arr : array[1..5] of TVariant;
  S : String;
begin
  Arr[1].bType := cString;
  Arr[1].dString := 'Слово';
  Arr[2].bType := cInteger;
  Arr[2].dInteger := 100;
  Arr[3].bType := cChar;
  Arr[3].dChar := 'Z';
  Arr[4].bType := cDouble;
  Arr[4].dDouble := 12.11111111;
  Arr[5].bType := cExtended;
  Arr[5].dExtended := 123.22222222;
 
  S := Func(Arr);
  Writeln(S);
  Readln;
end.