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

var
c:array[0..9]of integer;
i,b:integer;
a:longint;
begin
readln(a);
repeat
b:=a mod 10;
c[b]:=c[b]+1;
a:=a div 10;
until a=0;
for i:=0 to 9 do
if c[i]=0 then write (i,' ');
readln;
end.