Преобразовать строку так,чтобы все цифры были отсортированы по убыванию delphi или паскаль (лучше delphi)

Var s: string;
a: array [0..9] of integer;
i, j: integer;

begin
s = readln();
for i := 1 to length(s) do
    a[Convert.ToInt32(s[i])]++;
for i := 9 downto 0 do
    for j := 1 to a[i] do
        write(i);
end.

Это на pascalABC.net. Все должно работать, только Convert можешь сам исправить, если не работаешь в .net