[M.A.D.M.A.N.]

Код:

Randomize;
......
function CommonNumeric(var OutBuff:Array Of Byte):Byte;
var I:Byte;
begin
  For I:=1 To 5 Do
    OutBuff[I-1]:=1+Random(100);
  Result:=I;
end;

Usage this function

Код:

var Common:Array[0..4]Of Byte;
      Count,Index:Byte;
begin
  Count:=CommonNumeric(Common);
  For Index:=0 To Count-1 Do
    ShowMessage(IntToStr(Common[Index]));
end;