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

program mn_5;

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, ',');
  readln;

end.