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

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 (x2<(x1+r))then
x2:=x2+1
else
x2:=x2-1;

if (y2

program lab8_2;
uses

GraphABC;

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

x1:=random(500);
y1:=random(500);
x2:=x1;
y2:=random(500);
r:=abs(y1-y2);
while 5>0 do
begin
if (x2<(x1+r))then
x2:=x2+1
else
x2:=x2-1;

if(y2