Движение обьектов: машинка

[DeyaInferi]

Здравствуйте!
Очень нужна помощь.
Задача такая, что бы нарисовать машинку, заставить ее двигаться в разные стороны и переворачиваться.
Все это сделала.
Т.е. машинка у меня нарисована, двигается. Но.. Она не поворачивается.
Т.е. мне нужно, что бы при нажатии влево она поворачивалась, а не ехала задом. Понимаю, что это как-то через еще одну процедуру. Но не знаю, как это сделать.
Заранее спасибо
Код программы:

Uses Graph, crt;
Var
 dv,mv,r,x,y,c:integer;
 v:char;

procedure car(x,y:integer);
var
k,m,c,dv,mv:integer;
begin
setcolor(green);
setfillstyle(1,3);
rectangle(x,y,x+110, y+100);
Floodfill(x+1, y+1, green);

setfillstyle(1,4);
rectangle(x+110, y+40, x+150, y+100);
floodfill(x+111, y+41, green);

setfillstyle(1,6);
rectangle(x+125, y+50, x+144, y+90);
floodfill(x+126, y+60, green);

setfillstyle(1,5);
circle(x+125, y+120, 15);
floodfill(x+126, y+121, green);

setfillstyle(1,1);
circle(x+125, y+120, 8);
floodfill(x+126, y+121, green);

setfillstyle(1,5);
circle(x+30, y+120, 15);
floodfill(x+31, y+121, green);

setfillstyle(1,1);
circle(x+30, y+120, 8);
floodfill(x+31, y+121, green);

setcolor(8);
line(0,220,640,220);
delay(99);
end;
 begin


 dv:=detect;
 initgraph(dv,mv,'');
 x:=320;
 y:=240;
 c:=15;
   setcolor(c);
   setfillstyle(1,c);
   circle(x,y,r);
          floodfill(x,y,c);
 repeat
  v:=readkey;
           Cleardevice;
           setcolor(0);
setfillstyle(1,0);
bar(x-100, y-100, x+150, y+135);
floodfill(x+10, y+10, 0);
    case v of
     #77:
      begin
       x:=x+5;
        if x>640 then x:=1;
       end;
       #75:
         begin
         x:=x-5;
         if x<1 then x:=640;
         end;
       #80:
     begin y:=y+5; If y>480 then y:=1;
         end;
        #72:
         begin y:=y-5; if y<1 then y:=480;
           end;
         end;
          setcolor(c);
          setfillstyle(1,c);
     car(x,y);
          until v=#27;
          end.

[NSvirus]

Добавляем дополнительную переменную, которая отвечает за поворот. "pr"

rectangle(x,y,x+110*pr,y+100);
floodfill(x+1*pr,y+1,green)

Домножаем координаты каждого элемента рисунка.
Только переменные рядом с X. Прим:
X+100*pr

А здесь регистрируем. При нажатии вправо, переменная положительная.
Влево - отрицательная.

    #77:
      begin
       x:=x+5; pr:=1; 
        if x>640 then  x:=1; 
       end;
       #75:
         begin
         x:=x-5;pr:=-1; 
         if x<1 then x:=640; 
         end;
       #80:
     begin y:=y+5; If y>480 then y:=1;
         end;
        #72:

[DeyaInferi]

Спасибо огромное)