Помогите найти ошибку в задаче.Множества

[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:menu;
j,i:integer;
k:bludo;
begin
For i:=1 to n do
begin
S:=[];
Writeln('formirovanie blud');
writeln('vvesti nomer bluda ili 0, esli formirovanie 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];
Z:=x[1];
O:=x[1];
U:=x[1];
For i:=2 to n do
begin
A:=A*x[i];
Z:=Z+x[i];
O:=O+x[i];
U:=U+x[i]
end;
writeln('mnozhestvo blud, kotorie est na zavtrak, obed , uzhin');
For k:=chai to pizza do
If k in A then
begin
writeln('k');
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');
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
If k in Z then
writeln('k');
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}
writeln('mnozhestvo blud, kotorie est tolko na obed ' );
For k:=chai to pizza do
If k in O then
writeln('k');
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}
writeln('mnozhestvo blud, kotorie est tolko na uzhin');
For k:=chai to pizza do
If k in U then
writeln('k');
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}
readln

[Базиля]

В чем ошибка то?

[Базиля]

А, в конце забыл

end.

=))