Все четные цифры, которые входят в более чем одно число

uses crt;
const ch=[2,4,6,8];//множество четных цифр
type mnoz=set of byte//тип множества
var n,a,i,j,k:integer;
    m:array[1..100] of mnoz;//масив множеств
    m1,m2:mnoz;//множества
begin
clrscr;
write('Количество чисел n=');
readln(n);
for i:=1 to n do
 begin
  write('a=');
  readln(a);
  m[i]:=[];//формируем множество из числа
  while a>0 do
   begin
    k:= a mod 10;//отделяем цифры с конца
    if k mod 2=0 then m[i]:=m[i]+[k];//четные записываем в множество
    a:=a div 10;//берем число без последней цифры и все повторяем
   end;
 end;
m1:=[];//итоговое множество, пока пустое
for i:=1 to n-1 do//сравниваем разные множества
for j:=i+1 to n do
 begin
  m2:=m[i]*m[j];//пересечение множеств
  m1:=m1+m2;//добавляем к итоговому(если общих цифр нет, то ничего и не добавим)
 end;
if m1=[] then write('Таких цифр нет!')//если пустое и осталось
else
 begin
  write('Цифры входят в болле чем 1 число: ');
  for i:=2 to 8 do//проверяем четные цифры
  if i in m1 then write(i,' ');//если есть, выводим
 end;
readln
end.