как исправить программу, чтобы звезда закрашивалась касным цветом полностью? помогите пожалуйста

uses crt, graphABC;
const p=5;
var gd,gm,i:integer;
r,r2,al,a2,a3,t:real;

procedure Ugol(x1,y1,x2,y2,x3,y3:real;
n:integer);
var k:integer;
a,hx1,hx2,hy1,hy2:real;
begin
hx1:=(x2-x1)/N;hx2:=(x3-x2)/n;
hy1:=(y2-y1)/n;hy2:=(y3-y2)/n;
for k:=0 to n do
line(round(x1+k*hx1),round(y1+k*hy1),
round(x2+k*hx2),round(y2+k*hy2));
end;

begin
ClearWindow(clWhite);
r:=120;r2:=30;
t:=150;setpencolor(clRed);
for i:=0 to p-1 do
begin
al:=2*pi*i/p;
a2:=al+pi/p;
a3:=al-pi/p;
Ugol(t,t,t+r*sin(al),t+r*cos(al),
t+r2*sin(a2),t+r2*cos(a2),25);
Ugol(t,t,t+r*sin(al),t+r*cos(al),
t+r2*sin(a3),t+r2*cos(a3),25);
end;
repeat until keypressed;
end.