Оформить программу с использованием модулей. Организовать движение звезд - Turbo Pascal

unit modul;
interface
uses graph;
procedure Zvezda(x,y,c:integer;u:real);
procedure Kloun;
implementation
procedure Zvezda;
{рисование 1 звезды}
var a:real;
    i:integer;
    p:array[1..11] of pointtype;
begin
a:=u+pi/2;
for i:=1 to 11 do
 begin
  if i mod 2=0 then
   begin
    p[i].x:=x+round(50*cos(u+a));
    p[i].y:=y-round(50*sin(u+a));
   end
  else
   begin
    p[i].x:=x+round(18*cos(u+a));
    p[i].y:=y-round(18*sin(u+a));
   end;
  a:=a+pi/5;
 end;
setcolor(c);
drawpoly(11,p);
end;
procedure Kloun;
{рисуем клоуна}
begin
setcolor(white);
circle(300,65,48);
circle(285,51,5);
circle(316,51,5);
arc(300,46,238,304,47);
ellipse(300,234,0,360,57,122);
line(265,137,225,137);
line(225,137,180,175);
line(180,175,180,210);
line(180,210,265,137);
line(335,137,365,125);
line(365,125,415,160);
line(415,160,427,200);
line(427,200,335,137);
line(270,338,270,410);           {л. нога}
line(270,410,220,410);
line(220,410,220,385);
line(220,385,245,385);
line(245,385,245,338);
line(245,338,270,338);
line(330,338,330,410);           {п. нога}
line(330,410,380,410);
line(380,410,380,385);
line(380,385,355,385);
line(355,385,355,338);
line(355,338,330,338);
circle(303,180,22);
setlinestyle(0,0,3);
circle(303,180,17);
circle(303,238,17);
setlinestyle(0,0,1);
circle(303,238,22);
end;
end.