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

Var st,s: string;
    i,j: integer;
begin
  s:=9876543210;
  write(число:  );  readln(st);
  j:=1;
  while j  begin
    i:=1;
     while i    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.