Напечатать в возрастающем порядке все цифры, не входящие в запись данного натурального числа — Pascal(Паскаль)

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

program 4;
var m:set of 0..9;
    n,o,i:integer;
begin write('введите число:');
      readln(n);
      m:=[0,1,2,3,4,5,6,7,8,9];
      while n>0 do
        begin o:=n mod 10;
              n:=n div 10;
              if (o in m) then m:=m-[o]
        end;
        writeln('цифры, которых нет в числе:');
     for i:=0 to 9 do
      if i in m then write(i,',')
end.