Анимация на заставку

program zastavka;
uses crt,graph;
var d,m: integer;
begin
initgraph(m,d,'');
 
setfillstyle(1,blue);{nebo fon}
bar(1,1,800,800);
 
setfillstyle(1,brown);{zemlya}
fillellipse(300,400,550,100);
 
setfillstyle(1,7);{zdanie}
bar(100,200,200,320);
 
setfillstyle(2,8);{dver}
bar(120,250,180,320);
 
setfillstyle(1,4);{plakat}
bar(110,210,190,235);
 
{nadpis}
settextstyle(7,0,4);
outtextxy(122,203,'CTO');
 
{cabina}
setfillstyle(1,2);
bar(452,230,492,285);
 
{steklo}
setfillstyle(1,3);
bar(453,240,481,257);
 
{pricep}
setfillstyle(1,black);
bar(450,285,600,295);
 
{perednee koleso}
fillellipse(470,300,5,11);
 
{srednee koleso}
fillellipse(560,300,5,11);
 
{poslednee koleso}
fillellipse(570,300,5,11);
 
{kuzov avto}
setfillstyle(1,red);
bar(515,245,565,275);
 
{kapot avto}
bar(495,260,520,275);
 
{perednee koleso avto}
setcolor(black);
setfillstyle(1,8);
fillellipse(505,280,7,7);
 
{zadnee koleso}
setfillstyle(1,8);
fillellipse(550,280,7,7);
 
{steklo avto}
setfillstyle(1,3);
bar(517,248,555,258);
 
readkey;
end.