Данная N множество, состоящие из целых числ. Вывести на экран элементы, принадлежащие всем множествам — Pascal(Паскаль)

uses crt;
type mnz=set of byte;
var a:array[1..100] of mnz;
    n,i,j,x:byte;
    m:mnz;
begin
clrscr;
write('Количество множеств n=');
readln(n);
writeln('Введите элементы ',n,' множеств, окончание ввода-номер множества:');
for i:=1 to n do
 begin
  writeln(' множество ',i);
  a[i]:=[];
  repeat
   repeat
    readln(x);
   until x in [0..255];
   a[i]:=a[i]+[x];
  until x=i;
 end;
clrscr;
writeln('Исходные множества:');
for i:=1 to n do
 begin
  write(i:2,'-> ');
  for j:=0 to 255 do
  if j in a[i] then
  write(j:4);
  writeln;
 end;
m:=a[1];
for i:=1 to n do
m:=m*a[i];
writeln('Элементы, принадлежащие всем множествам:');
if m=[] then write('Таких элементов нет!')
else
for j:=0 to 255 do
if j in m then write(j:4);
readln
end.