Дано пятизначное число, нужно вычислить сумму цыфр. Записать в порядке возрастания числа

Это часть про разложение на цифры uses crt;

var a, b, c, d, e, x:integer;

begin

write ('vvedi chislo') ;

readln (x) ;

a:=x div 10000;

b:=x div 1000 mod 10;

c:=x mod 1000 div 100;

d:=x mod 100 div 10;

e:=x mod 10;

writeln (' ', a,' ', b,' ', c,' ', d,' ', e) ; end.