Определить для каждой марки телефонов, какие из них есть в каждом магазине, и каких нет во всех магазинах

type tlf=(t1,t2,t3,t4,t5,t6,t7);//перечислимый тип для создания множеств
     mnz=set of tlf; //тип множеств
     //массив марок телефонов
const k=6;
      n=3;
      sp:array[0..k] of string=('Тел1','Тел2','Тел3','Тел4','Тел5','Тел6','Тел7');
var m:array[1..n] of mnz; //массив множеств-магазинов
    m1,m2:mnz; //вспом. множества
    i:tlf;  //счетчик перечислимого типа
    j,v:byte; //счетчики целого типа
begin
//формируем множества
writeln('Перечислите в каком из ',n,' магазинов какие телефоны)');
for j:=1 to n do
 begin
  writeln('Магазин ',j);
  m[j]:=[];
  writeln('Выберите марки телефонов');
  writeln('0-Тел1 1-Тел2 2-Тел3 3-Тел4 4-Тел5 5-Тел6 6-Тел7 7-выход');
  repeat
   readln(v);
   if v in [0..k] then m[j]:=m[j]+[tlf(v)];
  until v=7;
  clrscr;
 end;
//выведнм на экран что получилось
writeln('Полный список имен:');
for i:=t1 to t7 do
write(sp[ord(i)],' ');
writeln;
writeln('Список телефонов по магазинам:');
for j:=1 to n do
 begin
  write(j:2,' - ');
  for i:=t1 to t7 do
  if i in m[j] then write(sp[ord(i)],' ');
  writeln;
 end;
//выполняем задание по пунктам
writeln('Телефоны, которые есть в каждом магазине:');
m1:=m[1];
for j:=1 to n do
m1:=m1*m[j];
if m1=[] then writeln('Таких телефонов нет')
else
 for i:=t1 to t7 do
 if i in m1 then write(sp[ord(i)],' ');
writeln;
writeln('Телефоны, которых нет ни в одном магазине:');
m1:=[t1..t7];
for j:=1 to n do
m1:=m1-m[j];
if m1=[] then writeln('Таких имен нет')
else
 for i:=t1 to t7 do
 if i in m1 then writeln(sp[ord(i)]);
end.