Напечатать в порядке убывания все цифры , входящие в запись данного натурального числа. Паскаль.

var st,s: string;     i,j: integer; begin   s:='9876543210';   write('число:  ');  readln(st);   j:=1;   while j<=length(s) do   begin     i:=1;      while i<=length(st) do     begin       if st[i]=s[j] then        begin         write(s[j],' ');         delete(st,i,1);         i:=i-1;       end;       i:=i+1;     end;     j:=j+1;     if length(st)=0 then break;   end;  end.