Помогите с заполнением программы пятиугольного паркета в PascalABC

Я хочу научиться создать сетку из пятиугольников с использованием процедур, как на фотке снизу.У меня есть код, но она не работает, можете помочь поправить или дополнить код?

Uses GraphABC;
Var i,j:integer;
Procedure Polygon (xc,yc:integer);
Const n=5;
      r=15;
Var
 x,y:array[1..n] of integer;
 i,j:integer;
 a:real;
begin
For i:=1 to n do begin
 a:=2*Pi*i/n+pi/10;
 x[i]:=Round(xc+r*Cos(a));
 y[i]:=Round(yc+r*Sin(a));
end;
MoveTo(x[n],y[n]);
For i:=1 to n do LineTo(x[i],y[i])
end;
Procedure NUgolnik(i,j:integer);
Var x,y:integer;
begin
 x:=i*26;
 y:=j*27;
Poligon(x,y);//Polygon(x+23,y+13);
end.