Изобразите на экране движение бильярдного шара после столкновения со стенкой

uses graphABC,Events;
var x,y,kx,ky,v: integer;
    b: boolean;
 
procedure keys;
begin
setbrushcolor(clwhite);
rectangle(200,150,240,190);
rectangle(260,150,300,190);
rectangle(200,210,240,250);
rectangle(260,210,300,250);
setpenwidth(4);
line(210,160,230,180);
line(210,160,210,170);
line(210,160,220,160);
 
line(290,160,270,180);
line(290,160,290,170);
line(290,160,280,160);
 
line(230,220,210,240);
line(210,240,210,230);
line(210,240,220,240);
 
line(270,220,290,240);
line(290,240,290,230);
line(280,240,290,240);
setpenwidth(1);
end;
 
procedure Fon;
begin
clearwindow;
setbrushcolor(clbrown);
rectangle(10,10,490,390);
setbrushcolor(clgreen);
rectangle(20,20,480,380);
setbrushcolor(clbrown);
keys;
end;
 
procedure MouseDown(x,y,mb: integer);
begin
  if mb=1 then
     begin
     if (x>200) and (x<240) and (y>150) and (y<190) then
        begin
        kx:=-1; ky:=-1;
        end;
     if (x>260) and (x<300) and (y>150) and (y<190) then
        begin
        kx:=1; ky:=-1;
        end;
     if (x>200) and (x<240) and (y>210) and (y<250) then
        begin
        kx:=-1; ky:=1;
        end;
     if (x>260) and (x<300) and (y>210) and (y<250) then
        begin
        kx:=1; ky:=1;
        end;
     end;
end;
 
procedure Shar(var xx,yy,kkx,kky: integer);
begin
if (xx<30) or (xx>470) then kkx:=kkx*(-1);
if (yy<30) or (yy>370) then kky:=kky*(-1);
xx:=xx+kkx;
yy:=yy+kky;
setbrushcolor(clwhite);
circle(xx,yy,10);
end;
 
begin
lockdrawing;
Fon;
OnMouseDown:=MouseDown;
x:=250;
y:=200;
repeat
Fon;
Shar(x,y,kx,ky);
sleep(10);
redraw;
until false;
end.