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

uses crt,graphABC;
var r,h,x,y,x1,y1,x2,y2,x3,y3,x4,y4,xt,yt,dx,dy:integer;
begin
r:=10;{радиус шарика}
dx:=5;{приращение по Х}
dy:=0;{по У}
h:=dx*40;{высота траектории}
x1:=3*r;y1:=(windowheight+h) div 2;{левый нижний угол}
x2:=x1+(windowwidth-2*x1) div 3;y2:=y1;
x3:=x2+40*dx;y3:=y2-h;
x4:=x3+(windowwidth-2*x1) div 3;y4:=y3;{правый верхний}
xt:=x1;yt:=y1;{точка начала линии траектории}
x:=x1;y:=y1;{начало движения}
repeat
 setpencolor(clGreen);
 circle(x,y,r);
 floodfill(x,y,clGreen);{рисуем шарик}
 delay(100);{задержка}
 setpencolor(clWhite);
 circle(x,y,r);
 floodfill(x,y,clWhite);{стираем=рисуем цветом фона}
 x:=x+dx;y:=y-dy;{новые координаты}
 setpencolor(clRed);{цвет линии траектории}
 line(xt,yt,x,y);{рисуем от точки на трапеции до шарика}
 if x>=x2 then{первый поворот}
  begin
   xt:=x2;{новая точка для начала линии}
   yt:=y2;
   dy:=5; {приращения по У }
   if x>x2+r then line(x2,y2,x2-r*dx,y2);{отойдем от угла и дорисуем,
   а то шарик после поворота стер уголок}
  end;
 if x>=x3 then{так же после второго поворота}
   begin
    dy:=0;
    xt:=x3;
    yt:=y3;
    if x>x3+r then line(x3,y3,x3-r*dx,y3+r*dx);
   end;
until x>x4;
setpencolor(clGreen);
circle(x,y,r);
floodfill(x,y,clGreen);{рисуем шарик}
end.