поиогите................................

Посещают же задачи, которые так приятно решить в виде одной конструкции языка! )))

// PascalABC.NET 3.2, сборка 1456 от 26.05.2017
// Внимание! Если программка не работает, обновите версию!

begin
  ReadSeqInteger(ReadInteger).Select(x-gt;x.ToString).JoinIntoString('')
      .GroupBy(x-gt;x).Select(x-gt;(x.Key,x.Count))
      .OrderBy(x-gt;x[1]).ThenByDescending(x-gt;x[0]).Select(x-gt;x[0]).Println(' ')
end.

Пример
3
456
20
3452
6 3 0 5 4 2

можно также ввести все в одной строке
3 456 20 3452
6 3 0 5 4 2