графики и графические объекты в ПАСКАЛЬ

[mashat99]

Помогите, пожалуйста построить график функции y=lg(x^2-3*x+2) и графический объект "луна"...заранее благодарна!!!

[mashat99]

var
Gd,Gm:integer;
x,dx,max,min,koef:real;
k,x0,y0:integer;
a,b:integer;
function f(x:real):real;
begin
f:=(ln(abs(sqr(x)-3*x+2)+0.0001)/ln(10)) ;
end;
begin
gd:=detect; initgraph(gd,gm,'');
a:=-1;b:=1;
dx:=(b-a)/639;
x:=a; max:=f(a); min:=f(a);
for k:=1 to 640 do
begin
if f(x)>max then max:=f(x);
if f(x)<min then min:=f(x);
x:=x+dx;
end;
koef:=479/(max-min);
x:=a;
moveto(0,round(479-koef*(f(a)-min)));
for k:=1 to 639 do
begin
x:=x+dx;
lineto(k,round(479-koef*(f(x)-min)));
end;
x0:=round(639*a/(a-b));
line(x0,0,x0,479);
y0:=round(479-479*(min/(min-max)));
line(0,y0,639,y0);
readln; closegraph;
end.

вот у меня такое есть...можна как-то его поменять, преобразовать?))