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

[18192123]

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

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

[TarasBer]

procedure move (x, y, dx, dy : integer);
замените на
procedure move (var x, y: integer; dx, dy : integer);
и в следующих 3х процедурах тоже

[18192123]

procedure move (x, y, dx, dy : integer);
замените на
procedure move (var x, y: integer; dx, dy : integer);
и в следующих 3х процедурах тоже

ээээ.....теперь слишком много стало шаров....
и ещё половина шарика с красным контуром крутится в правом нижнем угле экрана.....