Рисование звездочек

uses GraphABC;
procedure zvezda(x,y,r,c:integer);
var x0,y0,x1,y1,x2,y2,x3,y3,i:integer;
    p:array[1..11,1..2] of integer;
    r1,u:real;
begin
r1:=0.382*r;
u:=pi/2;
for i:=1 to 5 do
 begin
  p[2*i-1,1]:=x+round(r*cos(u));
  p[2*i-1,2]:=y-round(r*sin(u));
  p[2*i,1]:=x+round(r1*cos(u+pi/5));
  p[2*i,2]:=y-round(r1*sin(u+pi/5));
  u:=u+2*pi/5;
 end;
p[11,1]:=p[1,1];
p[11,2]:=p[1,2];
setpencolor(c);
setbrushcolor(c);
polygon(p,11);
end;
var n,r,x,y,c,i:integer;
begin
randomize;
n:=16;
r:=20;
setwindowsize(660,200);
centerwindow;
y:=windowheight div 2;
x:=r;
for i:=1 to n do
 begin
  c:=clrandom;
  zvezda(x,y,r,c);
  x:=x+3*r;
 end;
setfontsize(12);
setfontcolor(clRed);
setfontstyle(fsItalic);
setbrushstyle(bsClear);
textout(windowwidth-150,windowheight-50,'Петров А.С.');
setfontstyle(fsNormal);
textout(windowwidth-150,windowheight-30,'Группа № 1234');
end.

uses GraphABC;
procedure zvezda(x,y,r:integer; c:Color);
var i:integer;
    p:array of Point;
    r1,u:real;
begin
r1:=0.382*r;
u:=pi/2;
setlength(p,11);
for i:=0 to 9 do
 begin
  if odd(i) then 
   begin
    p[i].x:=x+round(r*cos(u));
    p[i].y:=y-round(r*sin(u));
   end 
   else
    begin
     p[i].x:=x+round(r1*cos(u+pi/5));
     p[i].y:=y-round(r1*sin(u+pi/5));
    end; 
  u:=u+2*pi/5;
 end;
p[10]:=p[0];
setpencolor(c);
setbrushcolor(c);
polygon(p);
end;
var n,r,x,y,i:integer;
    c:Color;
begin
randomize;
n:=16;
r:=20;
setwindowsize(660,200);
centerwindow;
y:=windowheight div 2;
x:=r;
for i:=1 to n do
 begin
  c:=clrandom;//RGB(random(256),random(256),random(256));
  zvezda(x,y,r,c);
  x:=x+3*r;
 end;
setfontsize(12);
setfontcolor(clRed);
setfontstyle(fsItalic);
setbrushstyle(bsClear);
textout(windowwidth-150,windowheight-50,'Петров А.С.');
setfontstyle(fsNormal);
textout(windowwidth-150,windowheight-30,'Группа № 1234');
end.