Движение рисунка, как в арканоиде... Опции

[b0b]

последняя задача в этом году.
нужно, чтобы при нажатии на любую клавишу, на экране появлялась картинка, которая движется бесконечно. наподобии как в "арканоид" шарик отскакивает от стен. при нажатии на опр. клавишу, происходит завершение программы.

в теории догадываюсь, как можно сделать.
но на практике.. .

program gr; 
uses crt, graph; 
var gd,gm:integer; 
begin 
     clrscr; 
     repeat 
           gotoxy(10,13); 
           writeln('Laba9'); 
     until keypressed; 
     gd:=detect; 
     initgraph(gd,gm,'d:\ftp\bp\bgi'); 
     setcolor(green); 
     line(160,240,320,240); 
     line(160,230,320,230); 

     arc(160,235,90,270,5); 
     arc(320,220,260,330,10); 
     arc(323,230,260,330,10); 

     line(329,225,370,150); 
     line(332,235,372,168); 

     circle(389,157,20); 

     line(380,140,360,120); 
     line(400,140,420,120); 

     ellipse(250,198,0,360,70,30); 
     ellipse(263,204,0,360,24,18); 

     circle(380,155,5); 
     circle(398,155,5); 
     circle(380,155,2); 
     circle(398,155,2); 

     arc(389,165,180,0,8); 



readln; 
end.