Помогите доделать в турбо паскале 7.0

[omik]

Помогите доделать в турбо паскале 7.0

я тут кое чо накидал а как дальше не знаю ( нужно чтоб призадевании камнем за гору писало "НЕ ПОПАЛ" и предлагало переиграть, а при задевании мишени писало "ПОПАЛ" и вопрос "Сыграть ещё?"
вот мой код:
uses Graph,CRT;
Label Again;
var Device,Mode,k:Integer;
var x1,y1,x2,y2,alpha,Dx,Dy,Dz,v,t:Real;
var n:String;
Begin
k:=0;
again:
Randomize;
Device:=0;
InitGraph(Device, Mode, 'c:\tp7\BGI');
DirectVideo:=false;
x1:=80;
y1:=480;
t:=0;
Dz:=0.1;
{Gora}
setcolor(8);
moveto(150,479);
lineto(300,479);
lineto(225,300);
lineto(150,479);
setfillstyle(1,8);
floodfill(225,475,8);
{Cel}
setcolor(13);
rectangle(580,470,600,479);
setfillstyle(1,13);
floodfill(590,475,13);

WriteLn('Vvedite ugol 0 go 90');
ReadLn(alpha);
Dx:=cos(alpha*(pi/180));
Dy:=sin(alpha*(pi/180));
x2:=(20+(x1-20)*Dx)+(480-y1)*Dy;
y2:=(480-(x1-20)*Dy)+(y1-480)*Dx;

Writeln('Vvedite skorost poleta yadra');
Readln(v);
repeat
setcolor(red);
circle(round(x2),round(y2),10);
setfillstyle(1,red);
floodfill(round(x2),round(y2),red);
delay(50);
setcolor(0);
circle(round(x2),round(y2),10);
setfillstyle(1,0);
floodfill(round(x2),round(y2),0);
t:=t+Dz;
v:=Abs(v-v/20);
x2:=x2+(v*t*Dx);
y2:=y2-(v*t*Dy-9.81*t*t/2);
until y2>=480;
readLn;
CloseGraph;

end.