Usar array y funcion mean?

[Gugao]

Hola

Tengo este programita que muy gentilmente el señor Federico (delphi.com.ar) me ayudo programar:


procedure TForm1.BotSumarClick(Sender: TObject);
var
R: integer;
D, L: extended;
begin
L:= StrToFloat (Edit1.Text);
D:= StrToFloat (Edit2.Text) ;

Randomize;
R:= 0;
repeat
inc(R);
until randg(D,1)>L;
Beta.Text := FloatToStr (R);
end;

El problema es que soy nuevo programando y no se como obtener cierta cantidad de esas variables R (un array?) para calcular el promedio de R (con la función mean?) ,

Lo quiero hacer generando una nueva variable N que será la cantidad de R´s para calcular la media:

Es decir

MEDIA= (R1+R2+ … +RN)/N

Donde N será en el programa:
N:= StrToInt(Edit3.Text) ;

De antemano muchas gracias.