Построение формальной модели движения тела

program myach;
var A,H,S,V0,g,L:real;
begin
g:=9.81;
readln(A,H,S,V0);
L:=S*Sin(A*Pi/180)/Cos(A*Pi/180)-G*Sqr(S)/(2*Sqr(V0*Cos(A*Pi/180)));
writeln(L);
if L<0 then
   writeln('Недолет')
else if L>H then
   writeln('Перелет')
else
   writeln('Попадание');
end.

program myach;
uses crt,graphABC;
const g=9.81;
var a,h,s,v0,x0,y0,xn,yn,x:integer;
    L,m:real;
    st:string;
begin
repeat
write('Введите угол бросания 0<=s<=60 a=');
read(a);
until(a>=0)and(a<=60);
repeat
write('Высота стенки 2<=h<=20 h=');
read(h);
until h in [2..20];
repeat
write('Начальная скорость мяча 1<=>v0<=20 v0=');
read(v0);
until v0 in [1..20];
repeat
write('Расстояние до стенки ',2*h,'<=s>=',10*h,' s=');
read(s);
until (s>=2*h)and(s<=10*h);
x0:=0; //левый край
y0:=windowheight-40; //низ
xn:=windowwidth-40; //правый край
m:=(windowwidth-40)/s;//масштаб
yn:=y0-round(h*m); //верх
hidecursor;
clearwindow;
line(x0,y0,xn,y0); //основание
setpencolor(clBlue);
setpenwidth(5);
line(xn,y0,xn,yn);//стенка
x:=x0;
L:=1;
setpencolor(clRed);
setpenwidth(1);
moveto(x0,y0);
while(x<s)and(L>=0) do
 begin
  x:=x+1;
  L:=x*Sin(A*Pi/180)/Cos(A*Pi/180)-G*Sqr(x)/(2*Sqr(V0*Cos(A*Pi/180)));
  lineto(x0+round(x*m),y0-round(L*m));
  sleep(100);
 end;
str(L:0:0,st);
if L<0 then st:=st+' Недолет'
else if L>h then st:=st+' Перелет'
else st:=st+' Попадание';
textout(windowwidth div 2-50,y0+20,'L='+st);
end.