Движение автомобиля и самолета в противоположных направлениях

uses graphABC;
 
var x0:integer;
 
 
procedure Fon;
var i: integer;
begin
clearwindow(clskyblue);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,420,900,600);
setpencolor(clgray);
setbrushcolor(clgray);
rectangle(0,450,900,550);
setbrushcolor(clwhite);
for i:=1 to 4 do
    rectangle(i*200-100,500,i*200,490);
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(800,100,50);
end;
 
procedure Koleso(xk1,yk1,xk2,yk2,uu: integer);
var r,i:integer;
    u:real;
begin
r:=15;u:=uu;
setbrushcolor(clblack);
setpencolor(clblack);
circle(xk1,yk1,r+10);
circle(xk2,yk2,r+10);
setbrushcolor(clwhite);
circle(xk1,yk1,r);
circle(xk2,yk2,r);
for i:=1 to 4 do
    begin
    line(xk1,yk1,xk1+round(r*cos(u)),yk1-round(r*sin(u)));
    line(xk2,yk2,xk2+round(r*cos(u)),yk2-round(r*sin(u)));
    u:=u+(pi/2);
    end;
end;
 
procedure Auto(x: integer);
var uu: integer;
begin
    uu:=-(x mod 100);
    setpenwidth(3);
    setpencolor(clred);
    setbrushcolor(clred);
    ellipse(x-100,350,x+100,450);
    setbrushcolor(clwhite);
    ellipse(x-90,360,x+90,440);
    setpencolor(clred);
    setbrushcolor(clred);
    rectangle(x-150,400,x+150,450);
    rectangle(x-10,355,x+10,450);
    Koleso(x-100,450,x+100,450,uu);
    redraw;
end;
 
procedure Airplane(x: integer);
var i: integer;
begin
setpencolor(clwhite);
setbrushcolor(clwhite);
ellipse(x-40,90,x+40,100);
setpenwidth(5);
line(x-10,99,x+5,110);
line(x,99,x+5,110);
line(x-15,99,x+5,80);
line(x,99,x+5,80);
setpenwidth(1);
rectangle(x+30,85,x+40,100);
end;
 
begin
lockdrawing;
setwindowsize(900,600);
repeat
for x0:=-200 to 1200 do
    begin
    Fon;
    Auto(x0);
    Airplane(1100-x0);
    redraw;
    end;
until false;
end.