Проезд перекрестков

//Проезд перкрестка не регулируемого
procedure title1;
const speed=1;
var
  w,h,i,j,pic,pic1,pic2: integer;
begin
   SetWindowSize(530,530);
   //фон
  pic:=LoadPicture('1.bmp');
  DrawPicture(pic,1,1);
  SetWindowCaption('Перемещение картинки');
  //первая машина
  pic1:=LoadPicture('demo2.bmp');
  //вторая машина
  pic2:=LoadPicture('car2.jpg');
  w:=PictureWidth(pic1);
  h:=PictureHeight(pic1);
//Проезд 1 авто
  for i:=0 to WindowWidth-w do
  begin
     DrawPicture(pic1,57,275);
    DrawPicture(pic,1,1);
    pic1:=LoadPicture('demo2.bmp');
   DrawPicture(pic2,175,i);
//Проезд 2 авто
    if i mod speed = 0 then Sleep(1);
     end;
    for i:=0 to WindowWidth-w do
   begin
    DrawPicture(pic,1,1);
   DrawPicture(pic1,i,275);
    if i mod speed = 0 then Sleep(1);
end;
end;