игра - пушка стреляет ядром и при этом надо выбрать скорость и угол. посередине стоит преграда

[hasana]

игра состоит в следующем...
пушка стреляет ядром и при этом надо выбрать скорость и угол...
посередине стоит преграда в виде треугольника(гора)... помогите составить код, при котором, ядро, столкнувшееся с горой останавливается)

uses graph;
var device,mode:integer;
x1,x2:integer;
v,a,h,s:integer;
x,y:integer;
alfa,t:real;
begin
device:=detect;
initgraph(device,mode,'');
line(0,400,640,400);
circle(60,390,10);
line(40,400,70,370);
line(200,400,290,310);
line(370,400,290,310);
randomize;
x1:=(390+random(221));
x2:=x1+40;
rectangle(x1,400,x2,385);
writeln('скорость');
readln(v);
writeln('угол');
readln(a);
alfa:=a*pi/180;
t:=0;
repeat
h:=round(v*t*sin(alfa)-(9.81*t*t)/2);
s:=round(v*t*cos(alfa));
x:=70+s;
y:=370-h;
setcolor(white);
setfillstyle(1,white);
circle(x,y,10);
floodfill(x,y,white);
setfillstyle(1,black);
setcolor(black);
circle(x,y,10);
floodfill(x,y,black);
t:=t+0.01;

until x>500;



readln;
closegraph
end.

[hasana]

ну... пока нет идей, у меня появилась следующая

repeat
h:=round(v*t*sin(alfa)-(9.81*t*t)/2);
s:=round(v*t*cos(alfa));
x:=70+s;
y:=370-h;
setcolor(white);
setfillstyle(1,white);
circle(x,y,10);
floodfill(x,y,white);
setfillstyle(1,black);
setcolor(black);
circle(x,y,10);
floodfill(x,y,black);
t:=t+0.01;
for i:=1 to 180 do begin;
g:=g+1;
if (x=(200+g))and(y=(400-g))then exit end;

until x>700;

но почемута через секунду после выполнения программы пишет арифметическое переполнение... мож это сможете объяснить