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

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