Графика, Подскажите почему не проводится линия Опции

[Neon6868]

Я провожу дугу, определяю координаты её конца. Потом я провожу линию из центра дуги в координаты конца дуги, но она не проводится. Подскажите почему, никак не могу понять!

  procedure linii_11(r1:real;x,y:integer);
  var
    m:integer;
    n:integer;
    coo:arccoordstype;
  begin
    setcolor(15);
    arc(x,y,0,80,round(r1+r1/3));
    getarccoords(coo);
    m:=coo.Xend;
    n:=coo.Yend;
    line(x,y,m,n);
    line(m,n,m+3,n+3);
    line(m,n,m-3,n+3);
  end;

[Neon6868]

Извиняюсь, я просто случайно нажал F8, вот программа и выполнялась до вывода линии