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

const
  n = 10;
var
  a : array [1..n] of integer;
  i, d : integer;
  m, z : set of byte;
begin
  writeln('ввод массива:');
  {вводим массив}
  for i := 1 to n do
  begin
    write('a[', i, '] = ');
    readln(a[i])
  end;
  {вывод}
  writeln('вывод массива:');
  for i := 1 to n do
    write(a[i]:4);
  writeln;
  {проверяем числа и формируем множество цифр, которые входят в числа}
  m := []; {пустое множество пока}
  for i := 1 to n do
    while a[i] <> 0 do
    begin
      d := a[i] mod 10; {берем правую цифру}
      include(m, d); {записываем отделенную цифру в множество}
      a[i] := a[i] div 10 {откидываем правую цифру}
    end;
  {теперь нужно сформировать множество, которое наоборот содержит отсутствующие цифры}
  z := [0..9]; {все цифры}
  z := z - m;
  {вывод множества}
  writeln('вывод множества:');
  for i := 0 to 9 do
    if i in z then write(i:4);
  readln  
end.