График функции, заданной параметрически - PascalABC.NET/GraphABC

Формулировка задачи:

помогите пожалуйста , подскажите как убрать третью линию посредине?

uses graphabc;
var xc,yc,r:integer;
    t,x,y:real;
begin
xc:=0;
xc:=windowwidth div 2;
yc:=windowheight div 2;
line(0,yc,windowwidth,yc);
line(xc,0,xc,windowheight);
r:=150;
t:=0;
while t<=2*pi do
 begin
  x:=r*cos(t);
  y:=r*sin(t);
  
 lineto(xc+round(x),yc-round(y));
  t:=t+0.001;
 end;
textout(windowwidth-20,yc+10,'X');
textout(xc-10,10,'Y');
end.

Решение задачи: «График функции, заданной параметрически»

Листинг программы

while t<=2*pi do
 begin
  x:=r*cos(t);
  y:=r*sin(t);
  if t=0 then moveto(xc+round(x),yc-round(y))
  else lineto(xc+round(x),yc-round(y));
  t:=t+0.001;
 end;

Объяснение кода листинга программы

В данном коде выполняется построение графика функции, заданной параметрически. Список действий, выполняемых в коде, можно оформить в виде следующих пунктов:

В условии цикла while проверяется, что значение переменной t меньше или равно двойному значению числа π (2*π).
В начале цикла присваиваются значения переменным x и y, которые равны произведению переменной r на соответствующие синус и косинус от переменной t.
Если значение переменной t равно 0, то выполняется команда moveto, которая перемещает курсор графического объекта (предполагается, что используется графический модуль) от начала координат (0,0) до точки с координатами (xc+round(x),yc-round(y)), где xc и yc — некоторые заданные начальные координаты.
Если значение переменной t не равно 0, то выполняется команда lineto, которая соединяет текущую точку графического объекта с точкой с координатами (xc+round(x),yc-round(y)).
Значение переменной t увеличивается на 0.001.
Цикл продолжается до тех пор, пока условие в начале цикла не станет ложным. Переменные r, xc, yc не указаны в данном коде и предполагаются заданными значениями.