Изобразить на экране отрезок, вращающийся в плоскости экрана вокруг своего конца

uses crt,graph;
var gd,gm:integer;
    ch:char;
    x0,y0,d,x,y,c,i:integer;
    a:real;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;y0:=getmaxY div 2;
d:=100;
a:=0;
c:=1;
i:=0;
repeat
x:=x0+round(d*sin(a));
y:=y0-round(d*cos(a));
Setcolor(c);
setlinestyle(0,0,3);
line(x0,y0,x,y);
delay(5);
setcolor(0);
setlinestyle(0,0,3);
line(x0,y0,x,y);
a:=a+0.01;
if a>2*pi then
 begin
  i:=i+1;
  if i mod 2=0 then c:=c+1;
  if c=16 then c:=1;
  a:=0;
 end;
until keypressed;
end.

uses graph;
const
x1=-4;{начало и конец графика в реальных значениях}
x2=4;
function F(a,b,d,l,x:real):real;
begin
F:=a*exp(b*x)+l*exp(d*x*x);
end;
var a,b,d,mx,my,max,min,x,dx,y1,y2,y3:real;
    x0,y0,grD,px,py,grM:integer;
    s:string;
begin
grD:=detect;
initgraph(grD,grM,'');
x0:=getmaxX div 2;{начало координат в центре экрана}
y0:=getmaxY-50;
a:=1.83;b:=0.362;d:=-0.14;
max:=F(a,b,d,1,x1); {майдем макс и мин для масштаба по оси У}
min:=F(a,b,d,1,x1);
dx:=0.001;
x:=x1;
while x<x2 do
 begin
  if F(a,b,d,1,x)>max then max:=F(a,b,d,1,x)
  else if F(a,b,d,1,x)<min then min:=F(a,b,d,1,x);
  x:=x+dx;
 end;
{коэффициенты по осям для перевода реальных координат в экранные}
mx:=600/(x2-x1);{длина в пикселах по оси Х/реальная длина}
if max>-min then my:=(y0-20)/max
else my:=(y0-20)/-min;
SetBkColor(7); {цвет фона}
setlinestyle(0,0,1);{сплошная линия}
SetColor(1);{цвет линий осей}
line(0,y0,getmaxX,y0); {ось Х}
line(x0,getmaxy,x0,0); {ось У}
line(x0-3,y0-round(min*my),x0+3,y0-round(min*my));{засечки на оси У}
line(x0-3,y0-round(max*my),x0+3,y0-round(max*my));
line(x0+round(x2*mx),y0+3,x0+round(x2*mx),Y0-3); {засечки на оси Х}
line(x0-round(x2*mx),y0+3,x0-round(x2*mx),Y0-3);
{подпись оси У}
str(min:0:2,s);
outtextXY(x0-35,y0-round(min*my),s);{соответственно засечкам}
str(max:0:2,s);
outtextXY(x0-35,y0-round(max*my),s);
{подпись оси Х}
str(x2,s);
outtextXY(x0+round(x2*mx),y0+10,s);
outtextXY(x0-round(x2*mx),y0+10,'-'+s);
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+10,10, 'Y');
{график}
x:=x1;
while x<=x2 do
 begin
  px:=x0+round(x*mx); {изменение по оси Х}
  y1:=F(a,b,d,-1,x); {график в реальных координатах}
  py:=y0-round(y1*my);{в экранных}
  putpixel(px,py,4);
  y2:=F(a,b,d,-0.1,x); {график в реальных координатах}
  py:=y0-round(y2*my);{в экранных}
  putpixel(px,py,2);
  y3:=F(a,b,d,1,x); {график в реальных координатах}
  py:=y0-round(y3*my);{в экранных}
  putpixel(px,py,9);
  x:=x+dx; {наращиваем х}
 end;
setcolor(10);
settextstyle(0,0,1);
outtextXY(5,80,'Grafik functii Y=a*exp(b*x)+L*exp(d*x*x)');
outtextXY(105,90,'interval [-4; 4]');
setcolor(4);
outtextXY(135,110,'L=-1');
setcolor(2);
outtextXY(135,130,'L=-0.1');
setcolor(9);
outtextXY(135,150,'L=1');
readln
end.