Нарисовать в разных местах экрана пятиугольник, закрашенный сектор эллипса, ромб, куб

uses graphABC,crt;
const a: array [1..5] of integer =(clred,clblue,clgreen,clpurple,clgray);
var i,j:integer;
    uu: integer;
 
procedure Koleso(xk1,yk1,xk2,yk2,uu: integer);
var r,i:integer;
    u:real;
begin
r:=15;u:=uu;
setbrushcolor(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(j: integer);
var xk1,yk1,xk2,yk2,x,y: integer;
begin
uu:=0;
for x:=-200 to 1100 do
    begin
    clearwindow;
    setpenwidth(3);
    setpencolor(j);
    setbrushcolor(j);
    rectangle(x-150,400,x+150,450);
    setbrushcolor(clwhite);
    rectangle(x-80,350,x+50,400);
    line(x-80,350,x-130,400);
    line(x+50,350,x+100,400);
    line(x-15,350,x-15,400);
    xk1:=x-100; xk2:=x+100;
    yk1:=450; yk2:=450;
    setpencolor(clblack);
    Koleso(xk1,yk1,xk2,yk2,uu);
    sleep(1);
    redraw;
    uu:=uu-5;
    end;
end;
 
 
begin
lockdrawing;
hidecursor;
setwindowsize(900,600);
repeat
uu:=0; j:=random(5)+1;
Auto(a[j]);
until keypressed;
end.