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

program mnoshestva;
uses crt;
type symbols=set of char;
var s1: symbols;  {все цифры}
    s2: string;  {натуральное число}
    d: byte; {счётчик цифр}
    i: byte; {счётчик цикла}
  begin
  s1:=['0'..'9'];
  writeln ('введите натральное число', s2);
  readln (s2);
  d:=0;
       for i:=1 to Length(s2) do
       if s2[i] in s1 then s1:=s1-s2[i];
       writeln ('получившийся ряд:', s1);
       readkey;
       end.

uses crt;
var w,n:longint;
    m:set of byte;
    i,c,k:byte;
begin
clrscr;
write('w=');
readln(w);
n:=w;
m:=[];
while n>0 do
 begin
  c:=n mod 10;
  m:=m+[c];
  n:=n div 10;
 end;
writeln('В число ',w,' не входят цифры');
for i:=0 to 9 do
if not(i in m) then write(i,' ');
readln
end.

program mnoshestva;
uses crt;
type symbols=set of byte;
var
    s1:symbols;
    s2: string;  {натуральное число}
    i: byte; {счётчик цикла}
    d,ercode:integer;
  begin
  s1:=[0..9];
  writeln ('введите натральное число', s2);
  readln (s2);
 
       for i:=1 to Length(s2) do
       begin val(s2[i],d,ercode);
       if d in s1 then s1:=s1-[d]; end;
       writeln ('получившийся ряд:');
 
 
       for i:=0 to 9 do
        if i in s1 then writeln(i);
       readkey;
       end.