Оформить процедурой преобразование натурального многоразрядного числа так, чтобы его цифры располагались в убывающем порядке

var

n: integer;

procedure down (var n: integer) ;

var

a: array[1 ... 20] of integer;

i, j, s, p: integer;

begin

i : = 0;

while n > 0 do

begin

i : = i + 1;

a[i] : = n mod 10;

n : = n div 10;

end;

p : = i;

for i : = 1 to p - 1 do

for j : = i + 1 to p do

if a[i] < a[j] then

begin

s : = a[i];

a[i] : = a[j];

a[j] : = s;

end;

j : = 1;

for i : = p downto 1 do

begin

s : = s + a[i] * j;

j : = j * 10;

end;

n : = s;

end;

begin

readln (n) ;

down (n) ;

writeln (n) ;

end.