Движение шарика по заданной траектории

uses crt,graphabc;
const r=10;
var x,y:integer;
begin
 Line (0,200,640,200);
 Line (320,0,320,400);
 y:=300;
For x:=0 to 220 do
  begin
   Setpencolor(clblack);
   Circle (x,y,r);
   sleep(4);
   Setpencolor(clwhite);
   Circle (x,y,r);
  end;
For x:=220 to 420 do
  begin
   Setpencolor(clblack);
   Line (0,200,640,200);
   Line (320,0,320,400);
   Circle (x,y,r);
   sleep(4);
   Setpencolor(clwhite);
   Circle (x,y,r);
   y:=y-1;
  end;
For x:=420 to 640 do
  begin
   Setpencolor(clblack);
   Circle (x,y,r);
   sleep(4);
   Setpencolor(clwhite);
   Circle (x,y,r);
  end;
end.

uses crt,graphabc;
const r=10;
var x,y:integer;
begin
 Line (0,200,640,200);
 Line (320,0,320,400);
 Line (0,300,220,300);
 Line (220,300,420,100);
 Line (420,100,640,100);
 y:=300;
For x:=0 to 220 do
  begin
   Setpencolor(clblack);
   Line (0,300,220,300);
   Circle (x,y,r);
   sleep(4);
   Setpencolor(clwhite);
   Circle (x,y,r);
  end;
For x:=220 to 420 do
  begin
   Setpencolor(clblack);
   Line (220,300,420,100);
   Line (0,300,220,300);
   Line (0,200,640,200);
   Line (320,0,320,400);
   Circle (x,y,r);
   sleep(4);
   Setpencolor(clwhite);
   Circle (x,y,r);
   y:=y-1;
  end;
For x:=420 to 640 do
  begin
   Setpencolor(clblack);
   Line (220,300,420,100);
   Line (420,100,640,100);
   Circle (x,y,r);
   sleep(4);
   Setpencolor(clwhite);
   Circle (x,y,r);
  end;
   Setpencolor(clblack); Line (420,100,640,100);
end.

uses graphABC;
var xc,yc,d1,d2,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,xt,yt:integer;
    x,y,mx,my:real;
//рисование траектории
procedure Grafik(xc,yc,x1,y1,x2,y2,x3,y3,x4,y4:integer);
var x,y:real;
begin
setpencolor(clBlack);
line(x1,yc,x4,yc);
line(xc,y1,xc,y4);
line(x1,y3,x2,y3);
line(x2,y3,x3,y2);
line(x3,y2,x4,y2);
end;
//рисование шарика
procedure Sharik(x,y,c:integer);
begin
setpencolor(c);
circle(x,y,10);
floodfill(x,y,c);
end;
 
begin
setwindowsize(600,600);
xc:=windowwidth div 2;
yc:=windowheight div 2;
d1:=xc-20;
d2:=d1 div 2;
x1:=xc-d1;
x2:=xc-d2;
x3:=xc+d2;
x4:=xc+d1;
y1:=yc-d1;
y2:=yc-d2;
y3:=yc+d2;
y4:=yc+d1;
Grafik(xc,yc,x1,y1,x2,y2,x3,y3,x4,y4);//рисуем график
xt:=x1;//координаты шарика
yt:=y3;
repeat
 lockdrawing;
 ClearWindow;
 xt:=xt+5;//новые координаты шарика
 if(xt>=x2)and(xt<=x3) then yt:=yt-5;
 Grafik(xc,yc,x1,y1,x2,y2,x3,y3,x4,y4);//рисуем график
 Sharik(xt,yt,clRed); //и шарик
 redraw;
 sleep(30);
until xt>x4;//конец
end.

uses graphABC;
var x1,y1,x2,y2,x3,y3,r,x,y:integer;
//рисование траектории
procedure Grafik;
begin
setpencolor(clBlack);
moveto(x1,y1);
lineto(x2,y2);
lineto(x3,y2);
lineto(x3,y3);
lineto(x1,y3);
lineto(x1,y2);
end;
//рисование шарика
procedure Sharik(x,y,r:integer);
begin
setpencolor(clRed);
setbrushcolor(clRed);
circle(x,y,r);
end;
 
begin
setwindowsize(500,500);
r:=10;
x1:=windowwidth-r;
x2:=x1 div 2;
x3:=r;
y3:=windowheight-r;
y2:=y3 div 2;
y1:=r;
x:=x1;
y:=y1;
Grafik;//рисуем график
Sharik(x,y,r);
lockdrawing;
while (x>x2)and(y<=y2) do
 begin
  clearwindow;
  x:=x-1;
  y:=y+1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
while x>=x3 do
 begin
  clearwindow;
  x:=x-1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
while y<=y3 do
 begin
  clearwindow;
  y:=y+1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
while x<=x1 do
 begin
  clearwindow;
  x:=x+1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
while y>=y2 do
 begin
  clearwindow;
  y:=y-1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
end.