Анимация 2 машин

uses graphabc;
var i:integer;
begin
// первая машина
setwindowSize(800,400);
rectangle(123,72,263,109);
circle(143,110,12);
circle(245,110,12);
line(172,72,172,53);
line(172,53,191,53);
line(191,53,211,71);
floodfill(180,100,clred);
floodfill(143,110,clblack);
floodfill(245,110,clblack);
floodfill(180,70,clbrown);
// вторая машина
line(140,176,259,176);
line(259,176,279,196);
line(279,196,140,196);
line(140,196,140,176);
circle(153,197,11);
circle(254,197,11);
line(181,175,199,155);
line(199,155,216,175);
floodfill(180,190,clblue);
floodfill(165,190,clgreen);
floodfill(254,197,clblack);
floodfill(153,197,clblack);
 
end.

uses graphabc;
 
procedure redcar(x: integer);
// первая машина
begin
  SetBrushColor(clRed);
  FillRectangle(x + 123, 72, x + 263, 109);
  SetBrushColor(clBlack);
  FillCircle(x + 143, 110, 12);
  FillCircle(x + 245, 110, 12);
  SetBrushColor(clBrown);
  var p := new Point[5](new Point(x + 172, 72), new Point(x + 172, 53),
                         new Point(x + 191, 53), new Point(x + 211, 71),
                         new Point(x + 172, 72));
  FillPolygon(p);                       
end;
 
procedure bluecar(x: integer);
// вторая машина
begin
  var p := new Point[5](new Point(x + 140, 176), new Point(x + 259, 176),
                         new Point(x + 279, 196), new Point(x + 140, 196),
                         new Point(x + 140, 176));
  SetBrushColor(clBlue);
  FillPolygon(p);
  var c := new Point[4](new Point(x + 181, 175), new Point(x + 199, 155),
                         new Point(x + 216, 175), new Point(x + 181, 175));
  SetBrushColor(clGreen);
  FillPolygon(c);
  SetBrushColor(clBlack);
  FillCircle(x + 153, 197, 11);
  FillCircle(x + 254, 197, 11);
end;
 
begin
  setwindowSize(800, 400);
  LockDrawing;
  for var i := 1 to 700 do
  begin
    Window.Clear;
    redcar(i div 4 * 3);
    bluecar(i);
    redraw;
    sleep(1);
  end;
end.

uses graphabc;
procedure car1(x:integer);
begin
// первая машина
rectangle(x-123,72,x-263,109);
circle(x-143,110,12);
circle(x-245,110,12);
line(x-172,72,x-172,53);
line(x-172,53,x-191,53);
line(x-191,53,x-211,71);
floodfill(x-180,100,clred);
floodfill(x-143,110,clblack);
floodfill(x-245,110,clblack);
floodfill(x-180,70,clbrown);
end;
procedure car2(j:integer);
begin
// вторая машина
line(j-140,176,j-259,176);
line(j-259,176,j-279,196);
line(j-279,196,j-140,196);
line(j-140,196,j-140,176);
circle(j-153,197,11);
circle(j-254,197,11);
line(j-181,175,j-199,155);
line(j-199,155,j-216,175);
floodfill(j-180,190,clblue);
floodfill(j-165,190,clgreen);
floodfill(j-254,197,clblack);
floodfill(j-153,197,clblack);
end;
// Анимация 1 машинки
var i,j,x:integer;
begin
setwindowsize(900,400);
centerwindow;
x:=300;
j:=300;
car1(x);
car2(j);
lockdrawing;
repeat
clearwindow;
x:=x+5;
car1(x);
sleep(10);
redraw;
until x>900;
repeat 
clearwindow;
j:=j+5;
car2(j);
sleep(1);
redraw;
until j>900;
end.