Моделирование движения шаров Опции

[18192123]

Вот такое задание:
Даны два шарика диаметром М. Промоделировать движение шариков по всей плоскости экрана. Шарики могут двигаться по прямым линиям. Изменение угла движения после столкновения с границей экрана или друг с другом может быть случайной величиной. Шарик не может вылететь за пределы квадрата. Пользователь может варьировать скорости движения шариков с помощью стрелок управления курсором.

Хотелось бы разобраться в коде программы... ( дело в том, что код не мой)
Объясните пожалуйста назначение каждой из процедур в тексте приведённой ниже программы!

[18192123]

Мои "очень скромные" наработки.....
вот только шарики не хотят двигаться...

uses crt,
     graph;
var  x1, x2, y1, y2, r1, r2,
     dx, dy, bgC, Gd, Gm : integer;

procedure draw (x, y, r, c : integer);
begin
 Setcolor ©;
 circle (x, y, r);
 Floodfill(x, y, c);
end;

procedure escape (x, y, r, bgC : integer);
begin
 Setcolor (bgC);
 circle (x, y, r);
 Floodfill(x, y, bgC);
end;

procedure move (x, y, dx, dy :  integer);
begin
 x := x+ dx;
 y := y + dy;
end;

procedure charge_on_oppositeX (x, dx : integer);
begin
 dx := -dx;
 x := x + dx;
end;

procedure charge_on_oppositeY (y, dy : integer);
begin
 dy := -dy;
 y := y + dy;
end;

Procedure border (x, y, r : integer);
begin
 if (x + r >= GetMaxX - 1) or ( x - r <= 1) then charge_on_oppositeX( x, dx);
 if (y+r>=GetMaxY-1) or (y-r<=1) then charge_on_oppositeY ( y, dy);
end;

begin
Gd := Detect;
InitGraph (Gd, Gm, '');
If GraphResult <> grOk then halt(1);
x1 := 50; y1 := 150; x2 := 400; y2 := 300; r1 := 30; r2 := 40; dx := 100; dy := 90;
bgC := 0;
rectangle (1,1, getMaxX - 1, getMaxY - 1);
repeat
begin
 draw (x1, y1, r1, white);
 draw (x2, y2, r2, red );
 delay(100);
 escape (x1, y1, r1, bgC);
 escape (x2, y2, r2, bgC);
 border (x1, y1, r1);
 border (x2, y2, r2);
 move (x1, y1, dx, dy);
 move (x2, y2, dx, dy);
end;
until  keypressed;
readkey;
closegraph;
end.