[Drozh]

То есть ты хочешь чтобы функция randomall(i1:integer):integer возвращала пять раз случайное число из деапазона 1..i1+1? А в другой процедуре это выводилось?

Если так как я понял, то вот так ))

Код:

type
 TMyArray = array [0..4] of Integer;

function Randomall(const Numbler: Integer): TMyArray;
var
 i: Integer;
begin
  for i := 0 to 4 do
   Result[i] := Random(Numbler) + 1;
end;

procedure privet(P: PChar); stdcall;
var
 ResArray: TMyArray; 
 s: String;
 int, i: Integer;
begin
 Randomize;
 s := Strpas(P);
 ResArray := Randomall(StrToInt(s));

  for i := 0 to 4 do
   ShowMessage(IntToStr(ResArray[i]));
end;