Построение графиков

uses graphABC;
var t,m:real;
    xc,yc,r,x,y,i:integer;
    s:string;
begin
xc:=windowwidth div 3; //íà÷àëî êîîðäèíàò
yc:=windowheight div 2;
r:=120;//ðàçìåð êàðòèíêè
m:=2*r/20;//ìàñøòàá äëÿ îñåé êîîðäèíàò
t:=0; //ñòðîèì ãðàôèê
while t<=2*pi do
 begin
  x:=xc+round(r*cos(t)*(1+cos(t)));
  y:=yc-round(r*sin(t)*(1+cos(t)));
  setpixel(x,y,clRed);
  t:=t+0.001
 end;//ðèñóåì îñè êîîðäèíàò
line(xc,0,xc,2*yc);
textout(xc+5,30,'Y');
line(0,yc,xc+2*r+60,yc);
textout(xc+2*r+50,yc-15,'X');
for i:=0 to 21 do
 begin
  str(i/10:0:1,s);
  if i mod 5=0 then
   begin
    line(xc+round(i*m),yc-8,xc+round(i*m),yc+8);
    textout(xc+round(i*m),yc+15,s);
   end
  else line(xc+round(i*m),yc-3,xc+round(i*m),yc+3);
 end;
for i:=1 to 13 do
 begin
  str(i/10:0:1,s);
  if i mod 5=0 then
   begin
    line(xc-8,yc+round(i*m),xc+8,yc+round(i*m));
    line(xc-8,yc-round(i*m),xc+8,yc-round(i*m));
    textout(xc-25,yc-round(i*m),s);
    textout(xc-30,yc+round(i*m),'-'+s);
   end
  else
   begin
    line(xc-3,yc+round(i*m),xc+3,yc+round(i*m));
    line(xc-3,yc-round(i*m),xc+3,yc-round(i*m));
   end
 end;
for i:=1 to 3 do
line(xc-round(i*m),yc-3,xc-round(i*m),yc+3);
end.