Добавить движение колёс машины - Turbo Pascal

Формулировка задачи:

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

Program mashinka;
uses crt,graph;
var gd,gm,u:integer;
begin
gd:=detect; {auto opredelenie tip graph draivera}
InitGraph(gd,gm,'c:\SchoolPak\pak\BP\');
SetBkColor(Black); {fon}
SetColor(15); {cvet mashinka}
while u<=550 do begin   {do kyda edet}
line(102+u,199,201+u,194); {bagashnik}
arc(98+u,215,90,270,7); {zadnyaya fara}
arc(158+u,220,160,260,60); {zadniy bamper}
line(202+u,193,250+u,150); {zadnee steklo}
line(210+u,195,253+u,155); {bokovoe steklo}
line(253+u,155,352+u,155);
line(352+u,155,440+u,195);
line(210+u,195,440+u,195);
line(315+u,155,315+u,195);
line(250+u,150,350+u,150); {krisha}
line(350+u,150,450+u,196); {lobovoe steklo}
line(450+u,196,558+u,210); {kapot}
line(150+u,195,139+u,165); {spoiler}
line(128+u,197,117+u,165);
line(98+u,165,93+u,155);
line(158+u,165,153+u,155);
line(98+u,165,117+u,165);
line(140+u,165,158+u,165);
line(93+u,155,153+u,155);
arc(550+u,266,365,80,57); {peredniy bamper}
line(607+u,280,570+u,280);
line(607+u,280,607+u,260);
line(570+u,280,549+u,280); {dno}
line(471+u,280,225+u,280);
circle(510+u,280,38); {perednee koleso}
circle(510+u,280,23);
circle(187+u,280,38); {zadnee koleso}
circle(187+u,280,23);
line(315+u,195,315+u,260); {dveri}
line(310+u,260,240+u,260);
line(240+u,260,210+u,195);
line(310+u,260,440+u,260);
line(440+u,260,440+u,195);
line(0,350,1000,350); {doroga}
delay(200); {men`she mercaet}
u:=u+10;  {skorost` dvizheniya}
ClearViewPort;
end;
Readln;
CloseGraph;
End.

Решение задачи: «Добавить движение колёс машины»

textual
                            Листинг программы 
                        

                            ....
  SetBkColor(Black); {fon}
  SetColor(15); {cvet mashinka}
  u := -600;
  while not keypressed do begin {do kyda edet}
    line(102 + u, 199, 201 + u, 194); {bagashnik}
    arc(98 + u, 215, 90, 270, 7); {zadnyaya fara}
    arc(158 + u, 220, 160, 260, 60); {zadniy bamper}
    line(202 + u, 193, 250 + u, 150); {zadnee steklo}
    line(210 + u, 195, 253 + u, 155); {bokovoe steklo}
    line(253 + u, 155, 352 + u, 155);
    line(352 + u, 155, 440 + u, 195);
    line(210 + u, 195, 440 + u, 195);
    line(315 + u, 155, 315 + u, 195);
    line(250 + u, 150, 350 + u, 150); {krisha}
    line(350 + u, 150, 450 + u, 196); {lobovoe steklo}
    line(450 + u, 196, 558 + u, 210); {kapot}
    line(150 + u, 195, 139 + u, 165); {spoiler}
    line(128 + u, 197, 117 + u, 165);
    line(98 + u, 165, 93 + u, 155);
    line(158 + u, 165, 153 + u, 155);
    line(98 + u, 165, 117 + u, 165);
    line(140 + u, 165, 158 + u, 165);
    line(93 + u, 155, 153 + u, 155);
    arc(550 + u, 266, 365, 80, 57); {peredniy bamper}
    line(607 + u, 280, 570 + u, 280);
    line(607 + u, 280, 607 + u, 260);
    line(570 + u, 280, 549 + u, 280); {dno}
    line(471 + u, 280, 225 + u, 280);
    circle(510 + u, 280, 38); {perednee koleso}
    circle(510 + u, 280, 23);
    circle(187 + u, 280, 38); {zadnee koleso}
    circle(187 + u, 280, 23);
    line(315 + u, 195, 315 + u, 260); {dveri}
    line(310 + u, 260, 240 + u, 260);
    line(240 + u, 260, 210 + u, 195);
    line(310 + u, 260, 440 + u, 260);
    line(440 + u, 260, 440 + u, 195);
    line(0, 350, 1000, 350); {doroga}
    delay(200); {men`she mercaet}
    u := u + 10; {skorost` dvizheniya}
    if u >= 550 then u := -600;
    ClearViewPort;
  end;
...
                        