Запрограммировать движение двух мячей разного цвета в лабиринте

{Фрагмент программы "мячик в коробке" (рисование движущейся окружно-
сти с анализом границ области по цвету пиксела.}
x1:=100; x2:=400;
y1:=120; y2:=380; {Координаты углов наружной коробки}
dx:= -5; dy:= 3; {начальный шаг движения мяча}
r:= 4; {Радиус мяча}
SetColor(11);
Rectangle(x1, y1, x2, y2); {Наружная коробка}
Rectangle(x1+30, y1+70, x1+120, y1+90); {Внутренние коробки}
Rectangle(x1+200, y1+90, x1+230, y1+200);
xc:= x1+90; yc:= y1+110;
Circle(xc, yc, r); {Мячик}
ax:= abs(dx); ay:= abs(dy); { число пикселов по ходу движения }
Repeat
i2:= 0; i1:= 0; {признаки удара о стенку равны нулю}
zx:= dx div abs(dx);
zy:= dy div abs(dy); {направление движения}
for i:= 1 to ax do
if GetPixel(xc+(r+i)*zx, yc) > 0
then {удар о вертикальную стенку}
begin
dx:= -dx;
i1:= 1;
break
end;
for i:= 1 to ay do
if GetPixel(xc, yc+(r+i)*zy) > 0
then {удар о горизонтальную стенку}
begin
dy:= -dy;
i2:=1;
break
end;
if (i1+i2 = 0) then
for i:= 1 to ax do
for k:= 1 to ay do
if (GetPixel(xc+(r+i)*zx, yc+(r+k)*zy)>0)
then {удар во внешний угол}
begin
dy:= -dy; dx:= -dx;
break
end;
SetColor( 0);
Circle(xc, yc, r); {стирание мяча}
xc:= xc+dx;
yc:= yc+dy; {приращение координат}
SetColor(14);
Circle(xc, yc, r) {рисование мяча}
Until Keypressed;