Нужна срочно помощь по Pascal'ю!

[CAXATbIU]

Народ, помогите, пожалуйста, с одной задачкой, очень прошу, от неё зависит моя судьба: "Вывести в возрастающем порядке все цифры, входящие в десятичную запись некоторого натурального числа n". Заранее очень благодарен!!! Вот, если пригодится, то, что я написал уже

program vortex;
type Mset=set of byte;
var
a:array [0..9] of integer;
i,v:integer;
s,s1:string;
M1,M:Mset;

procedure sa(v:integer; var M:Mset);
var
i:integer;
begin
M:=[];
while v>0 do
begin
M:=M+[v mod 10];
v:=v div 10;
end;
end;

begin
writeln('vvedite chislo');
read(s);
for i:=1 to 10 do
a[i]:=i-1;
val(s,v,0);
sa(v,M1);
s1:=' ';
for i:=1 to 10 do
if not(a[i] In M1) then
s1:=s1+a[i];
writeln('s1=',s1);
end.

[Chudo4258]

var
i,X,a:integer;
M:set of byte;
begin
readln(X);
while x>0 do
 begin
  a:=x mod 10;
  x:=x div 10;
  M:=M+[a];
 end;

for i:=0 to 9 do
 if (i in M) then write(i,' ');
readln;
end.