построение графика(Pascal)

program Snail;

uses
  Crt,
  Graph;

const
  grPath = 'C:\LAN\BP\BGI'; {Здесь пропиши свой путь к bgi-файлам}
  A = 50;
  B = 70;

var
  grDriver, grMode: Integer;
  MidX, MidY: Integer; {координаты центра экрана}
  g: Integer; {счетчик в градусах}
  t: Real; {счетчик в радианах}
  X, Y: Real; {текущие координаты}

begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, grPath);
  MidX := GetMaxX div 2;
  MidY := GetMaxY div 2;
  {Рисуем оси}
  Line(0, MidY, GetMaxX, MidY);
  Line(MidX, 0, MidX, GetMaxY);
  {Цикл от 0 до 2Пи}
  for g := 0 to 360 do begin
    t := g * Pi / 180;
    X := MidX + A * Sqr(Cos(t)) + B * Cos(t);
    Y := MidY + A * Cos(t) * Sin(t) + B * Sin(t);
    if g = 0 then
      MoveTo(Round(X), Round(Y))
    else
      LineTo(Round(X), Round(Y));
  end;
  ReadKey;
  CloseGraph;
end.