Отсортировать массив и найти количество различных чисел в нем.Паскаль

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016begin  var a:=ArrRandom(ReadInteger('n='),1,10); a.Println;  var d:=new dictionary<integer,integer>;  foreach var e in a.Sorted do d[e]:=d.Get(e)+1;  d.Println(NewLine)end.Тестовое решение:n= 158 4 8 6 7 8 4 4 7 2 4 5 5 5 7(2,1)(4,4)(5,3)(6,1)(7,3)(8,3)