Как сделать анимацию, чтобы фигуры перекидывали мяч друг другу?

uses graphABC;
var xc,x1,x2,y1,y2:integer;
//рисуем игроков и поверхность отскока мяча
procedure pole;
begin
setpenwidth(3);
setpencolor(clBlack);
setbrushstyle(bsClear);
circle(x1-20,y1-40,20);
moveto(x1-20,y1-20);
lineto(x1,y1+60);
lineto(x1-40,y1+60);
lineto(x1-20,y1-20);
line(x1-20,y1+60,x1-20,y2);
line(0,y1+100,windowwidth,y2);
setpencolor(clBlack);
line(x1-20,y1+10,x1,y1);
circle(x2+20,y1-40,20);
moveto(x2+20,y1-20);
lineto(x2,y1+60);
lineto(x2+40,y1+60);
lineto(x2+20,y1-20);
line(x2+20,y1+60,x2+20,y2);
line(x2+20,y1+10,x2,y1);
end;
//рисуем мяч
procedure myach(x,y:integer);
begin
setpenwidth(1);
setpencolor(clRed);
setbrushcolor(clRed);
setbrushstyle(bsSolid);
circle(x,y,10);
end;
var x,y,dx,dy,k:integer;
begin
//зададим размеры окна так
//чтобы (x2-x1)/2=2*(y2-y1-10)
setwindowsize(520,300);
xc:=windowwidth div 2;
x1:=80;
x2:=windowwidth-80;
y1:=windowheight div 2;
y2:=y1+100;
lockdrawing;
x:=x1;
y:=y1;
dx:=2;
dy:=1;
k:=0;
repeat
clearwindow;
myach(x,y);
pole;
sleep(10);
x:=x+dx;
y:=y+dy;
if ((x<=xc)and(k=0))or((x>xc)and(k=1)) then dy:=1//мяч вниз
else if((x<=xc)and(k=1))or((x>xc)and(k=0))then dy:=-1;//мяч вверх
if (x<x1)or(x>x2) then//мяч вправо или влево
 begin
  sleep(200);//задержка у игрока
  dx:=-dx;
  if k=0 then k:=1 else k:=0;
  y:=y1;
 end;
redraw;
until false;
end.