надо найти ошибку в паскале

[Len4i]{]

вот код:

program Game;
uses crt,graph;
label menu;var d,x,y,c,y1,m,z,w,z2,p,y2,f:integer; {d-driver,m-module} font:word;ch:char;
begin
d:=detect;
InitGraph(d,m,'');
menu:
clrscr;
setfillstyle(7,1);
floodfill(6,2,8);
font:=installuserfont('goth');
settextstyle(font,0,5);
setcolor(14);
Outtextxy(300,100,'Menu');
setcolor(4);
Outtextxy(300,200,'Play');
setColor(15);
Outtextxy(300,250,'Option');
setcolor(15);
outtextxy(300,300,'Exit');
y:=200;
repeat
ch:=readkey;
if ch=#0 then begin
              ch:=readkey;
              if ch=#80 then begin  y1:=y;y:=y+50; end;
              if ch=#72 then begin  y1:=y;y:=y-50; end;
              end;
if y=150 then y:=300;
if y=350 then y:=200;
setcolor(15);

case y1 of
200:outtextxy(300,y1,'Play');
250:outtextxy(300,y1,'Option');
300:outtextxy(300,y1,'Exit');
end;

setcolor(4);
case y of 
200:outtextxy(300,y,'Play');
250:outtextxy(300,y,'Option');
300:outtextxy(300,y,'Exit');
end;
until ch=#13;

case y of
250: begin {option}
     clrscr;
     font:=installuserfont('trip');
     settextstyle(font,0,2);
     floodfill(6,2,8);
     outtextxy(60,50,'This rpogram is made in Russia ');
     outtextxy(60,80,'the brunch of Belgorod State  ');
     outtextxy(60,110,'University.  ');
     setcolor(7);
     outtextxy(60,140,'Work made: ');
     setcolor(11);
     outtextxy(60,170,'   Korableva Elena ');
     outtextxy(60,200,'   Student of 520 group');
     setcolor(7);
     outtextxy(60,240,'Date of made:');
     setcolor(11);
     settextstyle(font,0,1);
     outtextxy(220,240,'         14.04.2010. ');
     outtextxy(130,390,'You are welcome!');
     settextstyle(0,0,1);
repeat
until readkey=#27;
goto menu;
       end;

[Len4i]{]

200: begin  {play}
     clrscr;
     font:=installuserfont('trip');
     settextstyle(font,0,4);
     floodfill(6,2,8);
     outtextxy(210,20,'Figurki');
     setfillstyle(1,0);
     w:=20;
     setcolor(14);
     randomize;
     x:=60;
     y:=200;
     end;
end;
for p:=1 to 5 do begin
    f:=random(2)+1;
    c:=random(15)+1;
    setcolor(c);
    setfillstyle(1,c);
    case f of
    1:begin {kvadrat}
    bar(x,y,x+60,y+60);
      end;                                                                              
    2:begin
    moveto(x,y);
    lineto(x+30,y+60);
    lineto(x+60,y);
   lineto(x,y);
    floodfill(x+30,y+5,c);
      end;
    end;
delay(10000);
x:=x+80;
 end;
clrscr;
y:=200;
repeat
c:=random(15)+1;
setcolor(c);
setfillstyle(1,c);
ch:=readkey;
if ch=#0 then begin
              if y=150 then y:=200;
              if y=250 then y:=200;
              end;
case y of
200:begin
    moveto(x,y);
    lineto(x+30,y+60);
    lineto(x+60,y);
    lineto(x,y);
    floodfill(x+30,y+10,c);
    end;
end;
until ch=#13;
repeat
c:=random(15)+1;
setcolor(c);
setfillstyle(1,c);
ch:=readkey;
if ch=#0 then begin
              if y=150 then y:=200;
              if y=250 then y:=200;
              end;
case y of
200:begin
bar(x,y+80,x+60,y+140);
    end;
end;
until ch=#13;                                                                 
repeat
until readkey=#27;
goto menu;
readln;
cleardevice;
CloseGraph;
end.

[Len4i]{]

извините, что код программы отправляла кусками, всё вместе не получилось

[Stilet]

отправляла кусками

Ну можно было прикрепить файл...
Ну да ладно уж...
Запустил я твою программу - запустилась игра...
Все работает.