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

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.