Нужна помощь и тут))

с помощью множества целых чисел от 0 до 255

Дано целое число N - количество элементов массива. Вывести те цифры элементов массива, которые не содержатся ни в каком из чисел.

Var i, n, m: integer;

a: set of 0 ... 9;

b: set of 0 ... 9 = [0,1,2,3,4,5,6,7,8,9];

c: array[1 ... 200] of integer;

begin

write (' N = ') ;

readln (n) ;

Randomize;

for i:=1 to n do

begin

c[i]:=Random (255) ;

write (c[i],' ') ;

end;

writeln;

a:=[];

for i:=1 to n do

begin

m:=c[i];

while (m>0) do

begin

a:=a+[ (m mod 10) ];

m:=m div 10;

end;

end;

b:=b-a;

if b[] then

begin

write ('в записи чисел массива не содержатся цифры : ') ;

foreach i in b do write (i,' ') ;

end

else

writeln ('встречаются все цифры') ;

end.