Рекурсия: эллипс, окруженный с четырех сторон эллипсами меньшего размера, повернутыми на 90 градусов

uses Crt, Graph;
var x,y,n,r,r1,a,b: integer;
    k1,k2: real;
procedure p(x,y,r,r1,n:integer);
  var x1,y1,i: integer;
    begin
      if n>0
        then
          begin
            setcolor(15-n);circle (x,y,r);delay(20000);
            r1:=round(r*k2);
            for i:=1 to 4  do
              begin
                x1:=round(x+r1*cos(pi/2*i));
                y1:=round(y+r1*sin(pi/2*i));
                p(x1,y1,round(r*k1),r1,n-1);
              end;
           end;
      end;
begin
  write('n=');readln(n);
  x:=320;
  y:=240;
  k1:=0.3;k2:=3;r:=50;
  a:=detect; b:=detect;
  initgraph(a,b,'c:\lg\bgi');
  p(x,y,r,r1,n);
  readkey;
  closegraph;
end.
 
задачка моя не корректно работающая:
uses crt,graph;
var x,y:integer;
    i,n,gd,gm,xla,yla,xlb,ylb,xlc,ylc:integer;
    u:real;
 
procedure cir(a,b,r,r1,r2,n:integer);
var xa,xb,xc,ya,yb,yc,xd,yd,r3:integer;
 
     if n>0 then begin
     setcolor(n);
     r3:=r2;
     r2:=r1;
     r1:=r3;
 
     r2:=r2-5;
 
     r:=r-round(r/2);
     xa:=a+r;
     ya:=b-r;
     xb:=xa;
     yb:=b+r;
     xc:=a-r;
     yc:=yb;
     xd:=xc;
     yd:=ya;
     Ellipse(xa, ya, 0, 360, r1,r2);
     Ellipse(xb, yb, 0, 360, r1, r2);
     Ellipse(xc, yc, 0, 360, r1, r2);
     Ellipse(xd, yd, 0, 360, r1, r2);
 
     cir(xd,yd,r,r1,r2,n-1);
     cir(xb,yb,r,r1,r2,n-1);
     cir(xa,ya,r,r1,r2,n-1);
     cir(xc,yc,r,r1,r2,n-1);
 
     end;
end;
 
begin
x:=320;
y:=240;
gd:=detect; gm:=1;
 
i:=0;
initgraph (gd,gm,'d:\tp7\bin');
  n:=5;
  Ellipse(x, y, 0, 360, 50, 20);
  cir(x,y,320,50,20,n);
 
  readln;
  closegraph;
end.