Помогите исправить эту программу для вывода функции 1/(x+2)-1.
Program Grafik;
uses GraphABC;
Var x0, y0, x1, y1, k: integer;
x,y:real;
Begin
x0:=320;
y0:=300;
k:=10;
line(x0,20,x0,380);
line(20,y0,620,y0);
setPenColor(clRed);
x:=-15;
While x<=15 do
begin
y:=1/(x+2)-1;
x1:=trunc(x0+x*k);
y1:= trunc(y0-y*k);
moveto(x1,y1);
lineto(x0,y0);
x:=x+0.001;
end;
End.