Нарисовать фигуру при помощи рекурсии

program recurs;
uses graphabc;
var n,k,p:integer;
 procedure ris(x,y,r:integer);
//var i:integer;
begin
Rectangle ( x, y,x+r,y+r);
if r<=3 then
exit
else
begin
ris(x+round(3*r/3),y+round(r/4),round(r/2));
 ris(x+round(9*r/9),y-20, round(4*r/4));
  end;
  end;
 begin
      n:=280;
   k:=100;
    p:=100;
   ris(n,k,p);
   //readln ;
   end.

uses graphABC;
var x,y,a,u,n,r:integer;
    k:real;
{рекурсивная функция рисования всей фигуры, x,y-координаты центра,
a-начальная длина стороны,n-глубина рекурсии,
k-коэффициент уменьшения}
function ris(x,y,a,n:integer;k:real):integer;
var i:byte;
begin
if n=0 then ris:=0
else
 begin
  Rectangle(x-a div 2,y-a div 2,x+a div 2,y+a div 2);{начальный квадрат}
  dec(n);
  {смещаемся в 4 стороны с уменьшением размера}
  ris:=ris(x+a div 2+round(a*k) div 2,y,round(a*k),n,k);
  ris:=ris(x-a div 2-round(a*k) div 2,y,round(a*k),n,k);
  ris:=ris(x,y-a div 2-round(a*k) div 2,round(a*k),n,k);
  ris:=ris(x,y+a div 2+round(a*k) div 2,round(a*k),n,k);
  {стираем все внутри ранее нарисованных квадратов}
  setbrushcolor(clWhite);
  rectangle(x-a div 2+1,y-a div 2+1,x+a div 2-1,y+a div 2-1);
 end;
end;
begin
a:=100;
k:=0.45;
n:=5;
x:=windowwidth div 2;
y:=windowheight div 2;
ris(x,y,a,n,k);
end.