Delphi диаграмма

[khlkolan]

Добрый день! подскажите как сделать диаграмму из массива чисел введенных пользователем?


то что я написал:

type
      TForm1 = class(TForm)
        Button1: TButton;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Edit1: TEdit;
        Edit2: TEdit;
        Edit3: TEdit;
        Edit4: TEdit;
        Chart1: TChart;
        Series1: TPointSeries;
        Chart2: TChart;
        Series2: TBarSeries;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    var i, j: Integer; //счетчик
    var a, b, c, d, f, _min, _max: Integer;
        total, total2: Integer;
        left, right: integer;

        rndmass: array of Double;
        rndmass2: TList<Double>;
        gisto : array of Integer;
        diap : Integer;

    begin

      total := StrToInt(Edit1.Text);
      total2 := StrToInt(Edit4.Text);
      left := StrToInt(Edit2.Text);
      right := StrToInt(Edit3.Text);

      SetLength(rndmass, total);
      rndmass2 := TList<Double>.Create;
      //SetLength(rndmass2, total2);




      for i := 0 to total2-1 do begin
        for j := 0 to total-1 do begin
          rndmass[j] := left + Random(right - left);
        end;


        rndmass2.Add(mean(rndmass));
      end;

      SetLength(gisto,Round(sqrt(total2)));
      diap := right - left;
      a := Round(diap / length(gisto));
      for i := 0 to length(gisto) - 1 do begin
    //max:= j;
    //min:= j;
    //for j:=0 to right do begin
      //if j>max then max:=j;
      //if j<min then min:=j;
          for j := 0 to Length(rndmass2)-1 do begin
            if (min < rndmass2[j]) and (rndmass2[j] < max) then gisto[i] := gisto[i] + 1;

              end;
      end;









      rndmass2.Sort;
      Series1.Clear;
      Series1.AddArray(rndmass2.ToArray);
      rndmass2.Free;
    end;


    end.

[Cuprum5]

Тэги кода ставить нужно и форматирование делать.