Изобразить отрезок, вращающийся вокруг точки

uses graphABC;
var x0,y0,x1,y1,x2,y2,r1,r2:integer;
    u:real;
begin
x0:=windowwidth div 2;
y0:=windowheight div 2;
r2:=y0-20;
r1:=r2 div 3;
u:=0;
lockdrawing;
repeat
clearwindow;
x1:=x0+round(r1*cos(u));
y1:=y0-round(r1*sin(u));
x2:=x0+round(r2*cos(u-pi));
y2:=y0-round(r2*sin(u-pi));
setpencolor(clRed);
setpenwidth(3);
line(x1,y1,x2,y2);
setpencolor(clBlue);
circle(x0,y0,2);
sleep(50);
u:=u+0.05;
redraw;
until false;
end.

uses
  GraphABC;
const
  R = 200;
var
  x0, y0 : Integer;
  Angle, x, y : Real;
begin
  x0 := WindowWidth div 2;
  y0 := WindowHeight div 2;
  LockDrawing;
  SetPenWidth(3);
  repeat
    ClearWindow;
 
    x := -sin(Angle);
    y := cos(Angle);
 
    SetPenColor(clRed);
    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);
 
    Angle := Angle + 0.01;
    Redraw;
    Sleep(5);
  until False;
end.

uses graphABC;
var f:text;
    x1,y1,x2,y2,x0,y0,r:integer;
    angle,x,y:real;
begin
assign(f,'koordinaty.txt');//файл в папке с программой
reset(f);
read(f,x1,y1,x2,y2);
close(f);
x0:=(x1+x2)div 4;
y0:=(y1+y2)div 4;
r:=round(sqrt(sqr(x2-x1)+sqr(y2-y1)));
angle:=0;
SetSmoothingon;//стирает предыдущую линию
setpenwidth(3);
repeat
clearwindow;
x:=-sin(angle);
y:=cos(angle);
setpencolor(clRed);
line(x0+round(r*x/4),y0+round(r*y/4),x0-round(r*x/4*3),y0-round(r*y/4*3));
setpencolor(clBlue);
circle(x0,y0,2);
angle:=angle+0.1;
sleep(50);
until false;
end.

uses
   GraphABC;
const
   a = 3;
   b = 4;
   c = 2; //радиус точки
   d = 40;
   Speed = 0.3;
var
   FileName: string;
   f: text;
   x1, y1, x2, y2, x0, y0, r: integer;
   angle{угол, на который поворачивается отрезок}, x, y: real;
begin
   writeln('Изображение отрезка, вращающегося вокруг точки, делящей его в отношении 1:3');
   writeln('Введите путь файла'); readln(FileName);
   assign(f, FileName);
   reset(f);
   readln(f, x1, y1, x2, y2);
   close(f);
   x0 := (x1 + x2) div b;
   y0 := (y1 + y2) div b;
   r := round(sqrt(sqr(x2 - x1) + sqr(y2 - y1)));//длина отрезка
   angle := 0;
   SetSmoothingon;//стирает предыдущую линию
   setpenwidth(a);
   repeat
      clearwindow;
      x := -sin(angle);
      y := cos(angle);
      setpencolor(clRed);
      line(x0 + round(r * x / b), y0 + round(r * y / b), x0 - round(r * x / b * a), y0 - round(r * y / b * a));//дело в этой строке
      setpencolor(clBlue);
      circle(x0, y0, c);
      angle := angle + Speed;
      sleep(d);
   until false;
end.

x0:=round((x1+x2/b)/(1+1/b));
y0:=round((y1+y2/b)/(1+1/b));