RND()- RTotal0 in Detailsection not working

[petrovlis]

CRXI –GoldminePE SQL -Vista Home Premium.
I have detailsection with products(contsupref) and one company has 20 products and
other only 30 productS,other 7 products …etc etc.
I LIKE TO HAVE max 10 RANDOM PRODUCTS (for each company)
OUT OF (1 UPTO 30 PRODUCTS) DEPENDING ON
COMPANY,WITH BELOW PARAMETERS, IT DOES NOT WORK …AS YET.
-------------------------------------
Group Contsupref with contsupref field in surpressed area
---------------------------------------
I have inserted RND() formula in detailsection as below
WhilePrintingRecords;
NumberVar Array array1;
Redim array1 [10];
Local NumberVar i;
For i := 1 to 10
Step 1
Do (array1 := 1+Truncate(RND()*Count({ContSupp.CONTSUPREF})));


Also inserted in Detailsection
RTotal0
Fields to Summerize Contsupref
Evaluate on change of field
Reset:Never



Section expert: surpress formula:
WhilePrintingRecords;
NumberVar Array Array1;
not (RecordNumber = Array1)

WHAT IS WRONG ??

Thanks for help
William