Задача на перемешение Опции

[-Михаил-]

Ребят помогите пожалуста нужно программку написать чтоб показать движение машины способом запоминания изображения и выводом его на экран (когда машина полностью выезжает за пределы экрана то поевляется снова).
Вот часть программы рисующаа машину:

Program car;
Uses crt,Graph;
var
   st:string;
   d,m,n,j:integer;
begin
d:=detect;
InitGraph(d,m,'d:\bp\bgi');
 repeat
line(60,400,30,400);
line(70,370,110,370);
line(110,370,120,400);
line(120,400,300,400);
line(310,370,350,370);
line(360,400,440,400);
line(430,370,290,340);
line(240,300,100,300);
line(30,350,30,400);
line(30,350,100,300);
line(60,400,70,370);
line(300,400,310,370);
line(360,400,350,370);
line(440,400,430,370);
line(290,340,240,300);
circle(330,400,26);
circle(90,400,26);
until keypressed;
end.