Графика Pascal ABC Изобразить на форме отрезок

uses GraphABC;
const  r=200;
var  x0,y0:integer;
     x,y,u:real;
begin
x0:=windowWidth div 2;
y0:=windowHeight div 2;
lockdrawing;
setpenwidth(3);
u:=0;
repeat
clearwindow;
x:=-sin(u);
y:=cos(u);
setpencolor(clRed);
line(x0+round(r*x),y0+Round(r*y), x0,y0);
setpencolor(clBlue);
circle(x0,y0,2);
u:=u+0.01;
redraw;
sleep(5);
until False;
end.

uses GraphABC;
const r=200;
var  x0,y0:integer;
     x,y,u:real;
begin
x0:=windowWidth div 2;
y0:=windowHeight div 2;
lockdrawing;
setpenwidth(3);
u:=0;
repeat
clearwindow;
x:=-sin(u);
y:=cos(u);
setpencolor(clRed);
//делим отрезок для примера 1:3
line(x0+round(r*x/4),y0+round(r*y/4), // 1/4
     x0-round(r*x/4*3),y0-round(r*y/4*3));// 3/4
setpencolor(clBlue);
circle(x0,y0,2);
u:=u+0.01;
redraw;
sleep(5);
until False;
end.

uses graphABC;
type tochka=record  //тип точка с полями
            x,y:integer;//координаты
            u,r:real;//угол луча и расстояние до центра вращения
            end;
     mas=array[1..2] of tochka; //отрезок
//угол между лучом и осью Х
function Ugol(x0,y0,x,y:integer):real;
begin
if (x>x0)and(y<=y0) then Ugol:=arctan((y0-y)/(x-x0))//I четверть
else if (x>x0)and(y>y0) then Ugol:=arctan((y0-y)/(x-x0))+2*pi//IV четверть
else if x<x0 then  Ugol:=arctan((y0-y)/(x-x0))+pi//II-III четверти
else if x=x0 then
 begin
  if y<y0 then  Ugol:=pi/2//вертикально вверх
  else if y>y0 then Ugol:=3*pi/2//вертикально вниз
 end;
end;
//расстояние до точки
function Radius(x1,y1,x2,y2:integer):real;
begin
Radius:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
//вращение точки вокруг центра
procedure Vrach(x0,y0:integer;k:real;var a:mas);
var i:integer;
begin
for i:=1 to 2 do
 begin
  a[i].u:=a[i].u+k;
  a[i].x:=x0+round(a[i].r*cos(a[i].u));
  a[i].y:=y0-round(a[i].r*sin(a[i].u));
 end;
end;
//отрезок и точка
procedure Otr(a:mas;x1,y1:integer);
begin
setpencolor(clRed);
setpenwidth(3);
line(a[1].x,a[1].y,a[2].x,a[2].y);
setpencolor(clBlue);
circle(x1,y1,2);
end;
//программа
var p:mas;
    xc,yc,i:integer;
begin
setwindowsize(500,500);
centerwindow;
xc:=windowheight div 2;
yc:=xc;
p[1].x:=xc-100;p[1].y:=yc+50;
p[2].x:=xc+150;p[2].y:=yc+80;
for i:=1 to 2 do
 begin
  p[i].r:=Radius(xc,yc,p[i].x,p[i].y);
  p[i].u:=Ugol(xc,yc,p[i].x,p[i].y);
 end;
otr(p,xc,yc);
lockdrawing;
repeat
  clearwindow;
  Vrach(xc,yc,0.1,p);
  Otr(p,xc,yc);
  sleep(50);
  redraw;
until false;
end.