Паскль.Множества.

[ulia8412]

Помогите отредактировать програму. Как найти блюда,котое есть тольк на завтрак? только на обед? тоько а ужин?

program mnozhestvo;
{В столовой имеются отдельные меню на завтрак, обед и ужин. Известно, что в
каждом таком меню не более 10 видов блюд.Определите, какие виды блюд имеются и
на завтрак, и на обед, и на ужин, если такие есть.Определите виды блюд, которые
есть только на завтрак , только на обед и только на ужин. Виды блюд
рассматривайте как данные перечислимого типа}
const n=3;
type
bludo=(chai, coffee, sup, kasha,plov,buterbrod ,pure, kakao, kompot, olivje, sok, pirog, tort, vino, pizza);
menu=set of bludo;
mas=array[1..n]of menu;
var x:mas;
A,Z,O,U,S,Z1,U1,O1:menu;
j,i:integer;
k:bludo;
begin
For i:=1 to n do
begin
S:=[ ];
writeln('vvesti nomer bluda ili 0, esli formirovanie blud zakoncheno');
read(j);
while j>0 do
begin
case j of
1: S:=S+[chai];
2: S:=S+[coffee];
3: S:=S+[sup];
4: S:=S+[kasha];
5: S:=S+[plov];
6: S:=S+[buterbrod];
7: S:=S+[pure];
8: S:=S+[kakao];
9: S:=S+[kompot];
10: S:=S+[olivje];
11: S:=S+[sok];
12: S:=S+[pirog];
13: S:=S+[tort];
14: S:=S+[vino];
15: S:=S+[pizza];
end; {case}
writeln('vvesti nomer sledushego bluda');
readln(j)
end; {while}
x[i]:=S
end; {for}
A:=x[1];
Z1:=x[1];
O1:=x[1];
U1:=x[1];
For i:=2 to n do
begin
A:=A*x[i];
end;
writeln('mnozhestvo blud, kotorie est na zavtrak, obed , uzhin=');
For k:=chai to pizza do
begin
If k in A then
case k of
chai: writeln('chai');
coffee: writeln('coffee');
sup: writeln('sup');
kasha: writeln('kasha');
plov: writeln('plov');
buterbrod: writeln('butrebrod');
pure: writeln('pure');
kakao: writeln('kakao');
kompot: writeln('kompot');
olivje: writeln('olivje');
sok: writeln('sok');
pirog: writeln('pirog');
tort: writeln('tort');
vino: writeln('vino');
pizza: writeln('pizza');
end; {case}
end;
writeln('mnozhestvo blud, kotorie est tolko na zavtrak=');
For k:=chai to pizza do
begin
If k in Z then
case k of
chai: writeln('chai');
coffee: writeln('coffee');
sup: writeln('sup');
kasha: writeln('kasha');
plov: writeln('plov');
buterbrod: writeln('butrebrod');
pure: writeln('pure');
kakao: writeln('kakao');
kompot: writeln('kompot');
olivje: writeln('olivje');
sok: writeln('sok');
pirog: writeln('pirog');
tort: writeln('tort');
vino: writeln('vino');
pizza: writeln('pizza');
end; {case}
end;
writeln('mnozhestvo blud, kotorie est tolko na obed =' );
For k:=chai to pizza do
begin
If k in O then
case k of
chai: writeln('chai');
sup: writeln('sup');
kasha: writeln('kasha');
plov: writeln('plov');
buterbrod: writeln('butrebrod');
pure: writeln('pure');
kakao: writeln('kakao');
kompot: writeln('kompot');
olivje: writeln('olivje');
sok: writeln('sok');
pirog: writeln('pirog');
tort: writeln('tort');
vino: writeln('vino');
pizza: writeln('pizza');
end; {case}
end;
writeln('mnozhestvo blud, kotorie est tolko na uzhin=');
For k:=chai to pizza do
begin
If k in U then
case k of
chai: writeln('chai');
coffee: writeln('coffee');
sup: writeln('sup');
kasha: writeln('kasha');
plov: writeln('plov');
buterbrod: writeln('butrebrod');
pure: writeln('pure');
kakao: writeln('kakao');
kompot: writeln('kompot');
olivje: writeln('olivje');
sok: writeln('sok');
pirog: writeln('pirog');
tort: writeln('tort');
vino: writeln('vino');
pizza: writeln('pizza');
end; {case}
end;
writeln;
readln
end.