Имитация движения (need help!)

[SnakeLight]

Здраствуйте, помогите пожалуйста с программой. Как мне сделать так чтобы два круга двигались на встречу друг другу и остановилсь бы как только прикоснуться и потом опять так поновой пока не нажмешь любую клавишу. И еще как закрасить движущий круг. Заранее большое человеческое спасибо!!!

Вот что я сам написал:

Uses crt,Graph;
Var
x,gm,gd: integer;
BEGIN
gd:= detect;
initgraph(gd,gm,'');
if graphresult<>0 then halt (1);
setviewport(1,1,600,450,true);
setbkcolor(black);
x:= 1;
while x<>270 do
begin
repeat
setcolor(white);
circle(60+x,250,60);
delay(1000);
setcolor(blink-brown-white);
line(480-x,310,600-x,310);
circle(540-x,250,60);
bar(0,0,600,480);
setfillstyle(2,black);
x:=x+1;
delay (50);
until keypressed;
closegraph;
END;
end.

[Master_S7]

такие вещи лучше в флеше делать...

[SnakeLight]

Сообщение от Master_S7

такие вещи лучше в флеше делать...

Я бы и делал бы это =) но задание таково надо сделать такое в паскале