Динамика движения круга по параболе

uses crt,graphABC;
//рисование траектории
procedure Grafik(x1,y1,x2,y2,x3:integer;mx,my:real);
var x,y:real;
begin
setpencolor(clBlack);
line(x1,y2,x2,y2);
line(x3,y2,x3,y1);
x:=-5;
y:=x*x;
while x<=5 do
 begin
  y:=x*x;
  putpixel(x3+round(x*mx),y2-round(y*my),clRed);
  x:=x+0.01;
 end;
end;
рисование шарика
procedure Sharik(x,y,c:integer);
begin
setpencolor(c);
circle(x,y,10);
floodfill(x,y,c);
end;
var x1,y1,x2,y2,x3,xt,yt:integer;
    x,y,mx,my:real;
begin
x1:=50;
y1:=50;
x2:=windowwidth-x1;
y2:=windowheight-50;
x3:=windowwidth div 2;
x:=-5;//начало по х
y:=x*x;//значение у
mx:=(x3-x1)/-x; //масштаб по х
my:=(y2-y1)/(x*x);//по у
Grafik(x1,y1,x2,y2,x3,mx,my);//рисуем график
xt:=x3+round(x*mx);//координаты шарика
yt:=y2-round(y*my);
Sharik(xt,yt,clGreen);//рисуем шарик
repeat
 delay(100); //задержка
 Sharik(xt,yt,clWhite);//стираем шарик=рисуем белым
 x:=x+0.2;//новое значение х
 y:=x*x;//у
 xt:=x3+round(x*mx);//новые координаты шарика
 yt:=y2-round(y*my);
 Grafik(x1,y1,x2,y2,x3,mx,my);//рисуем график
 Sharik(xt,yt,clGreen); //и шарик
until x>5;//конец
end.

uses crt,graphABC;
//рисование траектории
procedure Grafik(x1,y1,x2,y2,x3:integer;mx,my:real);
var x,y:real;
begin
setpencolor(clBlack);
line(x1,y2,x2,y2);
line(x3,y2,x3,y1);
x:=-5;
y:=x*x;
while x<=5 do
 begin
  y:=x*x;
  putpixel(x3+round(x*mx),y2-round(y*my),clRed);
  x:=x+0.01;
 end;
end;
//рисование шарика
procedure Sharik(x,y,c:integer);
begin
setpencolor(c);
circle(x,y,10);
floodfill(x,y,c);
end;
var x1,y1,x2,y2,x3,xt,yt:integer;
    x,y,mx,my:real;
begin
x1:=50;
y1:=50;
x2:=windowwidth-x1;
y2:=windowheight-50;
x3:=windowwidth div 2;
x:=-5;//начало по х
y:=x*x;//значение у
mx:=(x3-x1)/-x; //масштаб по х
my:=(y2-y1)/(x*x);//по у
Grafik(x1,y1,x2,y2,x3,mx,my);//рисуем график
xt:=x3+round(x*mx);//координаты шарика
yt:=y2-round(y*my);
repeat
 lockdrawing;
 ClearWindow;
 xt:=x3+round(x*mx);//новые координаты шарика
 yt:=y2-round(y*my);
 Grafik(x1,y1,x2,y2,x3,mx,my);//рисуем график
 Sharik(xt,yt,clGreen); //и шарик
 redraw;
 sleep(30);
 x:=x+0.2;
 y:=x*x;
until x>5.2;//конец
end.

uses crt,graph;
procedure Grafik(x1,y1,x2,y2,x3:integer;mx,my:real);
var x,y:real;
begin
setcolor(15);
line(x1,y2,x2,y2);
line(x3,y2,x3,y1);
x:=-5;
y:=x*x;
while x<=5 do
 begin
  y:=x*x;
  putpixel(x3+round(x*mx),y2-round(y*my),12);
  x:=x+0.01;
 end;
end;
procedure Sharik(x,y,c:integer);
begin
setcolor(c);
setfillstyle(1,c);
fillellipse(x,y,10,10);
end;
var x1,y1,x2,y2,x3,xt,yt:integer;
    x,y,mx,my:real;
begin
initgraph(x1,y1,'');
x1:=50;
y1:=50;
x2:=getmaxX-x1;
y2:=getmaxY-50;
x3:=getmaxX div 2;
x:=-5;
y:=x*x;
mx:=(x3-x1)/-x;
my:=(y2-y1)/(x*x);
Grafik(x1,y1,x2,y2,x3,mx,my);
xt:=x3+round(x*mx);
yt:=y2-round(y*my);
Sharik(xt,yt,10);
repeat
 delay(50);
 Sharik(xt,yt,0);
 x:=x+0.1;
 y:=x*x;
 xt:=x3+round(x*mx);
 yt:=y2-round(y*my);
 Grafik(x1,y1,x2,y2,x3,mx,my);
 Sharik(xt,yt,10);
until x>5;
Sharik(xt,yt,10);
readkey
end.