Продукты

[Mr.Been]

Помогите дописать программу:
В некотором районе города находится 5 продовольственных магазинов. В каждый из них завезли некоторые продукты из тех, что есть на базе: хлеб, масло, молоко, мясо , рыба, соль, сыр, чай, кофе, творог, мука. Определить, какие продукты есть во всех магазинах, какие- хотя бы в одном; каких нет нигде.
Не могу разобраться с выводом.
Вот код:
program lab32;
uses crt;
type m = (xleb,maslo,moloko,myaso,pblba,colb ,cblp,caxap,chai,kofe,tvorog,muka);
mn = set of m;
mas = array [1..10] of mn;
Procedure spisok;
begin
Writeln ('spisok produktov ');
writeln ('X-xleb':10,'M-maslo':10,'Q-moloko':10);
writeln ('W-myaso':10,'P-pblba':10,'E-colb':10);
writeln ('C-cblp':10,'R-caxap':10,'Y-chai':10);
Writeln ('K-kofe':10,'T-tvorog':10,'U-muka':10);
end;
var
n,i,q: byte;
a:mas;
str:string;
f:char;
d,nr:mn;
j: set of m;
begin
clrscr;
writeln ('skolko magazinov? ');
Readln (n);
spisok;
for i:=1 to n do
begin
write (i,'-i magazin: '); readln (str);
for q:=1 to length(str) do
begin
f:=str[q];
case f of
'X': a[i]:=a[i]+[xleb];
'M': a[i]:=a[i]+[maslo];
'Q': a[i]:=a[i]+[moloko];
'W': a[i]:=a[i]+[myaso];
'P': a[i]:=a[i]+[pblba];
'E': a[i]:=a[i]+[colb];
'C': a[i]:=a[i]+[cblp];
'R': a[i]:=a[i]+[caxap];
'Y': a[i]:=a[i]+[chai];
'K': a[i]:=a[i]+[kofe];
'T': a[i]:=a[i]+[tvorog];
'U': a[i]:=a[i]+[muka];
end;
end;
end;
j := [xleb,maslo,moloko,myaso,pblba,colb, cblp,caxap,chai,kofe,tvorog,muka];
d:=[];
nr:=[];
for i:=1 to n do
begin
d:=d*a[i];
nr:=nr*a[i];
end;
j:=j-nr;
writeln ('produktov net nigde: ');

writeln ('produktbl vo vseh magazinah :');

readln;
end.
Заранее благодарен.