По заданному натуральному числу n построить систему из n вложенных друг в друга многоугольников

uses graphABC;
type point=record
           x,y:integer
           end;
      pl=array[1..20] of point;
//рекурсивная функция
function Mng(xc,yc,r,k:integer;var p:pl;n:integer):integer;
var j:byte;
begin
if n=0 then Mng:=0
else
 begin
  polygon(p,k+1);
  dec(n);
  for j:=1 to k do
   begin
    p[j].x:=p[j].x+round((p[j+1].x-p[j].x)*0.5);
    p[j].y:=p[j].y+round((p[j+1].y-p[j].y)*0.5);
   end;
  p[k+1]:=p[1];
  Mng:=Mng(xc,yc,r,k,p,n);
 end;
end;
 
var n,k,r,i,xc,yc:integer;
    p:pl;
    u,m:real;
begin
setwindowsize(500,500);
r:=200; //радиус масштабирования, одинаковый по обеим осям
n:=20; //количество n-угольников
k:=5;//количество вершин
xc:=windowwidth div 2;//центр экрана
yc:=windowheight div 2;
u:=pi/6;//начальный угол
for i:=1 to k+1 do
 begin
  p[i].x:=xc+round(r*cos(u));
  p[i].y:=yc-round(r*sin(u));
  u:=u+2*pi/k
 end;
Mng(xc,yc,r,k,p,n);
end.

uses graphABC;
type point=record
           x,y:integer
           end;
      pl=array[1..20] of point;
//рекурсивная функция
function Mng(xc,yc,k:integer;var p:pl;n:integer):integer;
var j:byte;
begin
if n=0 then Mng:=0
else
 begin
  polygon(p,k+1);
  dec(n);
  for j:=1 to k do
   begin
    p[j].x:=p[j].x+round((p[j+1].x-p[j].x)*0.5);
    p[j].y:=p[j].y+round((p[j+1].y-p[j].y)*0.5);
   end;
  p[k+1]:=p[1];
  Mng:=Mng(xc,yc,k,p,n);
 end;
end;
 
var n,k,rx,ry,i,xc,yc:integer;
    p:pl;
    u,m:real;
begin
setwindowsize(500,500);
rx:=150; //радиус масштабирования, одинаковый по обеим осям
ry:=100;
n:=20; //количество n-угольников
k:=6;//количество вершин
xc:=windowwidth div 2;//центр экрана
yc:=windowheight div 2;
u:=pi/6;//начальный угол
for i:=1 to k+1 do
 begin
  p[i].x:=xc+round(rx*cos(u));
  p[i].y:=yc-round(ry*sin(u));
  u:=u+2*pi/k
 end;
Mng(xc,yc,k,p,n);
end.