Histogram - potrzebna funkcja/procedura

Witam. Poszukuje procedury dzieki ktorej otrzymam z tablicy A ( zawierajacej liczby rzeczywiste zaokroglane do 1 miejsca) tablice B zawierajaca czestosci wystepowania liczb. Dobrze by bylo zeby oprocz czestosci dostepna byla wartosc dla danej czestosci np. ze liczba 2,4 wystapila 5 razy a liczba 7,2 wystapila 3 razy itp.. z gory dzieki za pomoc

Podwójna pętla

for i := 0 to length(TabA - 1)do
  for j := 0 to length(TabA - 1) do
  begin
    if TabA[j] = TabA[i] then
      Inc(licznik);
   // tu trzeba wstawić swoje dane
  end;

Jest to kod ideowy pisany z palca - po prostu sprawdzasz kolejne liczby czy się powtarzają i liczysz ilość tych powtórzeń.

// na liczbach rzeczywistych to nie przejdzie - Ł