помогите пожалуйста составить задачи в PASCAL.

Нужно составить задачу с анимацией.
1) 2 шара едут друг на друга, сталкиваются и разъезжаются обратно.
2) первый шар начинает ехать, доезжает до второго, толкает его и начинает катиться второй шар, первый останавливается.