[NumLock]

Код:

procedure bla(var dynarr: array of Single);
var
  i: Integer;
begin
  for i:=0 to Length(dynarr)-1 do
    dynarr[i]:=Random(100);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  SetLength(diskret, 100);
  bla(diskret);
  for i:=0 to Length(diskret)-1 do
    Memo1.Lines.Add(FloatToStr(diskret[i]));
end;