Создать программу которая рисует Декартов лист и запустить по ней квадрат

uses graph; 
var gd,gm,x0,y0,x,y:integer; 
 a,fi,t:real; 
begin 
a:=120; 
gd:=0; 
initgraph(gd,gm,''); 
x0:=getmaxX div 2; 
y0:=getmaxY div 2; 
line(0,y0,2*x0,y0); 
line(x0,0,x0,2*y0); 
fi:=0; 
while fi<=pi do{если fi<=pi/2 будет лепесток без усиков} 
 begin 
 t:=sin(fi)/cos(fi); 
 x:=x0+round(3*a*t/(1+t*t*t)); 
 y:=y0-round(3*a*t*t/(1+t*t*t)); 
 if cos(fi)<>0 then 
 Putpixel(x,y,12); 
 fi:=fi+0.001; 
 end; 
setfillstyle(10,12); 
floodfill(x0+10,y0-10,12); 
readln 
end.

uses graphABC;
var x0,y0,x,y:integer; 
a,fi,t:real; 
begin 
a:=120; 
x0:=Window.Center.X; 
y0:=Window.Center.Y; 
line(0,y0,2*x0,y0); 
line(x0,0,x0,2*y0); 
fi:=0; 
while fi<=pi do{если fi<=pi/2 будет лепесток без усиков} 
begin 
t:=sin(fi)/cos(fi); 
x:=x0+round(3*a*t/(1+t*t*t)); 
y:=y0-round(3*a*t*t/(1+t*t*t)); 
if cos(fi)<>0 then 
SetPixel(x,y,clRed); 
fi:=fi+0.001; 
end; 
floodfill(x0+10,y0-10,clRed); 
end.

uses graphABC;
var c,x,y:integer; 
    a,fi,t:real; 
begin
SetWindowSize(500,500);
CenterWindow; 
a:=120; 
c:=250;
fi:=0; 
lockdrawing;
repeat
clearwindow;
t:=sin(fi)/cos(fi); 
x:=c+round(3*a*t/(1+t*t*t)); 
y:=c-round(3*a*t*t/(1+t*t*t)); 
if cos(fi)<>0 then 
 begin 
  setpencolor(clBlue);
  setbrushcolor(clBlue);
  rectangle(x-10,y-10,x+10,y+10);
 end;
sleep(10); 
fi:=fi+0.001;
redraw;
until fi>=pi/2//без "усов" 
end.