Генератор чисел для двусторонего экспоненциального распределения

function Expon2: Real;
begin
  Result:=-ln(random);
  if Random<0.5 then Result:=-Result;
end;
if RadioGroup1.ItemIndex=5 then
  begin
      n1:=StrToInt(Edit5.Text);
      SetLength(arr,n1);
      max:=0;
      min:=0;
      for i:=0 to n1-1 do
      begin
        p:=Expon2;
        if p>max then max:=trunc(p+0.99);
        if  p<min then min:=trunc(p-0.99);
        arr[i]:=p;
      end;
   for i:=0 to n1-1 do
          begin
            k:=trunc(abs((arr[i]-min)/(max-min)*m));
            if k>=m then k:=m-1;
           inc(ni[k]);
           end;
      Series1.Clear;
      for i:=0 to n1-1 do
        begin
          Series1.AddXY(i,arr[i],'',clgreen);
        end;
          Series6.Clear;
          Series7.Clear;
          j:=min;
            for i:=0 to m-1 do
              begin
              Series6.AddXY(j,ni[i]/n1*m/(max-min),'',clred);
              Series7.AddXY(j,ni[i]/n1*m/(max-min),'',clwhite);
              j:=j+(max-min)/m;
             end;
             SetLength(arr1,n1);
             Series3.Clear;
                 la:=1;
                begin
                j:=min;
                i:=0;
                repeat
                  arr1[i]:=(la/2)*exp(-la*abs(j));
                  Series3.AddXY(j,arr1[i],'',clred);
                  j:=j+0.1;
                  i:=i+1;
                  until (j>=max)or(i>=n1);
                end;
                  j:=min;
                  l:=0;
            repeat
              x:=0;
              G:=2*la;
              arrd[l]:=1/sqrt(2*pi*G)*exp(-(sqr(j-x)/(2*G)));
              j:=j+0.01;
              l:=l+1;
            until(j>=max);
              j:=0;
              Series4.Clear;
              for i:=0 to l-1 do
          begin
            Series4.AddXY(j,arrd[i],'',clgreen);
            j:=j+0.01;
          end;
         Label6.Caption:= FloatToStr(Round(Log10(n1)*3.32+1))+' (оптимальное)';
   end;

j := min;