Анимация. Паскаль АВС. Линия вращается вокруг одной из своих точек

program lab8_2;
uses

GraphABC;

var x1,x2,y1,y:integer; y2,r: real;
begin

x1:=random(500);
y1:=random(500);
x2:=x1;
y2:=y1-random(50);
r:=abs(y1-y2);
while x2>=0 do
begin
if (x20 do
begin
if (x2