Пожалуйста посчитайте пожалуйста срочно в ПАСКАЛЕ АВС СДЕЛАТЬ ПАРОВОЗ, который не движется .такой же как на рисунке .

uses graphABC;
procedure paravoz(x,y:integer);
var i,x1:integer;
beginsetpencolor(clBlack);
setbrushcolor(clBlack);x1:=x+11;for i:=1 to 5 dobegincircle(x1,y+83,11);
x1:=x1+20end;
rectangle(x,y+35,x+80,y+75);
lineto(x+33,y+35);
lineto(x+38,y+10);
lineto(x+15,y+10);
lineto(x+22,y+35);floodfill(x+25,y+30,clBlack);
setpencolor(clGreen);
setbrushcolor(clGreen);rectangle(x+70,y,x+115,y+75);
end;
var x,y:integer;
beginx:=windowwidth-350;
y:=200;
lockdrawing;
repeatclearwindow;
paravoz(x,y);
sleep(100);redraw;
until x<=5;
end.

1. Как-то он мало похож на тот, что на рисунке... Видимо, не нашлось, откуда содрать, а хотелось... )))))