Построение графика функции с автоматическим масштабированием (Turbo Pascal)

[Tiran09]

Построить графики функций Y1(x) и Y2(x) в двух областях экрана. Использовать библиотеку GR_F для построения графиков с автоматическим масштабированием, сохраняющим естественную форму кривой. Необходимо также вывести надпись вида функции и диапазона изменения "х".
Y1 = (x^2-1)/(x^4+1)
y2 = -x^5+2*x^3-1
x изменяется от -2 до 2
Единственное что не понятно в этой задачи, так это автоматическое масштабирование и где брать библиотеку GR_F...
Вот код программы построения этих графиков. Надо как-то туда прикрутить автоматическое масштабирование...

Program number2;
Uses graph,crt;
Var GMod,GDriver:integer;
 x,y, y1_min,y2_max:real;
 x_max, y_max:integer;
 function power(x:real; step:integer):real;
   var j:integer; power1:real;
   begin
     power1 := x;
     for j := 1 to step - 1 do
       power1 := power1 * x;
       power := power1;
   end;
begin
 GDriver:=detect; 
 InitGraph(GDriver,GMod,''); 
 x_max := GetmaxX; 
 y_max := Getmaxy; 
 {y1_min := 0;
 y2_max := y_max; }
 x := -2; 
 Line(0,round(y_max / 2),x_max,round(y_max / 2));
 while not (x > 2) do 
   begin
     y:=(sqr(x) - 1) / (power(x,4) + 1); 
     PutPixel(Round(x*150) + round(x_max / 4),Round(y*150) + round(y_max / 2),3); 
     y:= power((-1) * x,5) + 2 * power(x,3) - 1; 
     PutPixel(Round(x*15) + round(x_max / 4 * 3),Round(y*15) + round(y_max / 2),4); 
     x := x + 0.001; 
     delay(2); 
   end;
 x:=-2;
 line(Round(x_max/2), 0, Round(x_max/2),y_max);
 Readln;
 CloseGraph;
End.