Рекурсивная процедура рисования фигур

uses
  graphABC;
var
  x0,y0,L: integer;
procedure Kvadrat(x0,y0,a,L: real; N: integer);
var
  x1,y1: real;
begin
  if N>0 then
  begin
    setpencolor(clTeal);  // цвет пера
    setpenwidth(3);       // толщина пера
    x1:=x0+L*cos(a);
    y1:=y0-L*sin(a);
    Line(round(x0),round(y0),round(x1),round(y1));
    Kvadrat(x1,y1,a+pi/2,L,N-1);       // функция для построения квадрата
  end
end;
begin
  setpencolor(clGreen);  // цвет пера
  setpenwidth(3);       // толщина пера
  x0:=300; y0:=300; L:=100;
  Kvadrat(x0,y0,0,L,4);  // x0, y0, угол, длина линии, число уровней
  Kvadrat(x0-25,y0-75,0,L/2,4);
  Kvadrat(x0+75,y0+25,0,L/2,4);
  Kvadrat(x0-25,y0+25,0,L/2,4);
  Kvadrat(x0+75,y0-75,0,L/2,4);
end.

uses graphABC;
var x,y,a: integer;
procedure Kvadrat(x,y,a,N:integer);
begin
setbrushstyle(bsClear);
setpencolor(clTeal);  // цвет пера
setpenwidth(3);       // толщина пера
rectangle(x-a,y-a,x+a,y+a);
if n>1 then
 begin
  Kvadrat(x-a,y-a,a div 2,n-1);
  Kvadrat(x+a,y-a,a div 2,n-1);
  Kvadrat(x+a,y+a,a div 2,n-1);
  Kvadrat(x-a,y+a,a div 2,n-1);
 end;
end;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
a:=50;
Kvadrat(x,y,a,2);
end.