Программа проезда перекрестка, Помочь сделать так чтобы машина ехала по правилам Опции

[IlyasKaz]

Помогите люди добрые Сделать так чтобы машинка доезжала до светофора (стоп-линии) затормозила переключился свет и они поехали.Буду приемного благодарен)))

Uses crt, graphabc;
var
   picBkGround, picBkGround1, picBkGround2 : Integer;
   pic1, pic4, pic5, pic6 : Integer;
   car1_x, car1_y:integer;
   car2_x, car2_y:integer;
   deltax, deltay:integer;
   p : Integer;
   stopLine : Integer;
begin
   SetWindowSize(530, 530);
   SetWindowCaption('Ïåðåìåùåíèå êàðòèíêè');

   picBkGround := LoadPicture ('1.jpg');
    picBkGround1 := LoadPicture ('1(1).jpg');
     picBkGround2 := LoadPicture ('1(2).jpg');
     

   pic1 := LoadPicture ('luxcar2(1).jpg');
   pic4 := LoadPicture ('luxcar1(2).jpg');
   pic6 := LoadPicture ('luxcar1(3).jpg');
   pic5 := Loadpicture ('luxcar2(3).jpg');
   // Dvijnyak
   LockDrawing;
   car1_x := 217; car1_y := 0;
   car2_x := 270; car2_y := WindowHeight;
   deltax := 0; deltay := -1; p := pic4;
   stopLine := 5 * (WindowHeight div 4);
   repeat
      DrawPicture (picBkGround2, 1, 1);
      DrawPicture (pic1, car1_x, car1_y);
      DrawPicture (p, car2_x, car2_y);
      Redraw;
      Sleep (1);

      Inc (car1_y);
      car2_x := car2_x + deltax;
      car2_y := car2_y + deltay;

      if deltay = 0 then
         if car1_y > stopLine then deltay := -1;
        if car2_y = stopLine then deltay := 0;

      if car2_y = 220 then
      begin
         deltax := -1;
         deltay := 0;
         p := pic6;
      end;
   until car2_x < 0;
   UnlockDrawing;
end.

[IlyasKaz]

Пикап слева на права ----->>>>>а седан
____>
|
|
помогите пожалуйста а то курсовую завтра сдавать уже