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

Question

program lab8_2; 
uses 
 
 GraphABC; 
 
 var x1,x2,y1,i,y:integer; y2,r: real; 
 begin 
 i:=1; 
 x1:=100; 
 y1:=100; 
 x2:=x1; 
 y2:=y1-(x1/2); 
 r:=abs(y1-y2); 
 while x2<=1000 do 
 begin 
 if (y1=y2)then 
 begin 
 x2:=x2+i; 
 y2:=y1-sqrt(r*r-(x2-x1)*(x2-x1)); 
 y:=round(y2); 
 line(x1,y1,x2,y); 
 end 
 else begin 
 x2:=x2-i; 
 y2:=y2+sqrt(r*r-(x2-x1)*(x2-x1)); 
 y:=round(y2); 
 line(x1,y1,x2,y); 
 end 
 end; 
 
end.

Мария Фомичёва · Accepted Answer

Если ещё актуально, пиши на почту, помогу.