Отобразить 2 кривых 4ого порядка на 1ом графике

uses GraphABC;
const
   xSign = 30;
   ySign = 50;
   stop = 2*pi;
   dif = 0.01;
   x0 = Windowwidth div 2;
   y0 = Windowheight div 2;
   scale = 20;
var
   x, y, t: real;
   a, x1, y1: integer;
function GetY(a, t : real): real;
begin
   GetY := a * sin(t) * (1 + cos(t));
end;
function GetX(a, t : real): real;
begin
   GetX := a * cos(t) * (1 + cos(t));
end;
function Sign(a: real): string;
var
   s : string;
begin
   s :=  ' a = ' + floattostr(a);
   Sign := s;
end;
procedure Asymp(a: integer);
var
   x, y, y1, i, step : integer;
begin
   step := scale div 4;
   x := x0 + scale * a;
   i := 0;
   y := 0;
   y1 := y;
   while y <= Windowheight do begin
      i := i + 1;
      y := y + step;
      if (i mod 2) <> 0  then
         Line(x, y1, x, y);
      y1 := y1 + step;
   end;
end;
begin
    writeln ('Построение кардиоиды');
    repeat
    writeln ('Введите значение |а|<=7 a='); 
    readln (a);
    until abs(a)<=7;
    t := 0;
    Line(0, y0, Windowwidth, y0);
    Line(x0, 0, x0, Windowheight);//оси х и у
    Asymp(a);
    setpencolor(clRed);
    while t <= stop do
     begin
       x := GetX(a,t);
       y := GetY(a,t);
       x1 := x0 + round(x*scale);
       y1 :=y0 - round(y*scale);
       if t=0 then moveto(x1,y1)else lineto(x1,y1);
       t := t + dif;
    end;
    TextOut(xSign, ySign, Sign(a));
 end.

uses graphabc;
const
  Scale = 20;
  a = 3;
 
var
  R, phi: Double;
  X, Y: Integer;
  CX, CY: Integer;
 
begin
  CX := WindowWidth div 2;
  CY := WindowHeight div 2;
  
  phi := 0;
  while phi < 2 * pi do
  begin
    R := sqrt(2 * sqr(a) * cos(2 * phi));
    try
      X := CX + Trunc(Scale * R * Cos(phi));
      y := CY - Trunc(Scale * R * Sin(phi));
      
      SetPixel(x, y, clRed);
    except
      end;
    phi := phi + pi / 1800;
  end;
end.