{$I DECL.TLD}
{$I STAT.TLD}
{$I SORT.TLD}

var x               : RealArrayType_TL;
    x_hist          : IntArrayType_TL;
    sum,n_class,i,n : integer;
begin
  clrscr;
  writeln('Generierung eines Histogramms aus Zufallszahlen');writeln;

  n:=200;       { Anzahl der Daten   }

  n_class:=14;  { Anzahl der Klassen }

  { ------ Erzeugung der Daten ------ }
  for i:=1 to n do x[i]:=random(1000);

  { ------ Sortierung der Daten ------ }
  num_heap_sort(x,n);

  { ------ Erzeugung des Histogramms ------- }
  histogram(x,n,x_hist,n_class);

  sum:=0;
  writeln;
  for i:=1 to n_class do
  begin
    sum:=sum+x_hist[i];
    writeln(i,'. Klasse        Zaehlrate : ',x_hist[i]);
  end;
  writeln;
  writeln('Summe der Zaehlraten aller Klassen :',sum);
end.