type TMyRec = packed record
                                            num:integer;
                                            count:integer;
                                         end;
var
      i,j:integer;
      MyMass:array of TMyRec;
      added:Boolean;
begin
 for i:=0 to  количество_элементов_исходного_массива -1 do
  begin
    added:=false;
    for j:=0 to length(MyMass)-1 do
    begin
       if MyMass[j].num = исходный_массив[i] then inc(MyMass[j].count);
       added:=true;
       break;
    end;
    if not added then
    begin
       setlength(MyMass,Length(MyMass)+1);
       MyMass[Length(MyMass)-1].num:=исходный_массив[i];
       MyMass[Length(MyMass)-1].count:=1;
    end;    
  end;
// вывод как уже писал
end;