Задача в паскале. Вывести на экран в порядке возрастания все цифры, не являющиеся…

Var s: string; i, n: integer; c: char; b: boolean; begin readln (n); s: =inttostr (n); for c: ='0' to '9' do begin b: =true; for i: =1 to length (s) do if s[i]=c then begin b: =false; break; end; if b then writeln (c); end; end.