Составить рекурсивный алгоритм рисования вложенных квадратов

uses graph;
function Kvad(xc,yc,a:integer;ax,ay,bx,by,cx,cy,dx,dy,m:real;n:integer):integer;
begin
if n=0 then Kvad:=0
else
 begin
  line(round(ax),round(ay),round(bx),round(by));
  line(round(bx),round(by),round(cx),round(cy));
  line(round(cx),round(cy),round(dx),round(dy));
  line(round(dx),round(dy),round(ax),round(ay));
  dec(n);
  Kvad:=Kvad(xc,yc,a,ax+(bx-ax)*m,ay+(by-ay)*m,bx+(cx-bx)*m,by+(cy-by)*m,
          cx+(dx-cx)*m,cy+(dy-cy)*m,dx+(ax-dx)*m,dy+(ay-dy)*m,m,n);
 end;
end;
var gd,gm,a,n,xc,yc:integer;
    ax,bx,cx,dx,ay,by,cy,dy,m:real;
begin
gd:=detect;
initgraph(gd,gm,'');
a:=200;
n:=20;
m:=0.09;
xc:=getmaxX div 2;
yc:=getmaxY div 2;
ax:=xc-a;ay:=yc-a;
bx:=xc+a;by:=yc-a;
cx:=xc+a;cy:=yc+a;
dx:=xc-a;dy:=yc+a;
Kvad(xc,yc,a,ax,ay,bx,by,cx,cy,dx,dy,m,20);
readln;
end.