График и масштабирование

uses Graph,Crt;
const
 step=0.01;
Var
 grDriver,grMode,i,a,b,ver,gor,max,koef:integer;
 x,y,dx,dy,xx,yy,shagVer,shagGor:Real;
 Znach:String;
Function F(x:real):real;
begin
 F:=ln(sqr(x)+2);
end;
 
Begin
 clrscr;
 Writeln('Практическая работа вроде 5 График');
 Writeln('Введите интервал A,B:');
 readln(a,b);
 if (a>b) then
   begin
    writeln('График в таком интервале не существует');
    readln;
  end
 else
  begin
   grDriver:=Detect;
   initGraph(grDriver,grmode,'C:\TP7\TP\BGI');
   if graphresult<>grOk then Halt;
   Line(320,0,320,480);
   Line(0,240,640,240);
   if abs(A)>=Abs(B) then max:=abs(A)
     else
      max:=abs(B);
      koef:=Koef+1;
     end;
   shagVer:=300/max;
   shagGor:=220/max;
   ver:=320;
   gor:=240;
{ЧЕРТОЧКИ ДЛЯ ПРАВОЙ ЧАСТИ Права Низ}
for i:=1 to abs(max) do begin
 ver:=ver+koef*Round(ShagVer);
 gor:=gor+koef*Round(ShagGor);
 line(ver,238,ver,242);
 line(318,gor,322,gor);
 str(koef*i,Znach);
 OutTextXY(ver+1,243,Znach);
 Znach:='-'+Znach;
 OutTextXY(323,gor+1,Znach);
end;
 ver:=320;
 gor:=240;
{ЧЕРТОЧКИ ДЛЯ ЛЕВОЙ ЧАСТИ Лева низ}
for i:=1 to abs(max) do begin
 ver:=ver-koef*Round(ShagVer);
 gor:=gor-koef*Round(ShagGor);
 line(ver,238,ver,242);
 line(318,gor,322,gor);
 str(koef*i,Znach);
 OutTextXY(323,gor+1,Znach);
 Znach:='-'+Znach;
 OutTextXY(ver+1,243,Znach);
end;
  if (Abs(a)>abs(b)) then xx:=Abs(a) else xx:=Abs(b);
    yy:=abs(F(A));
    x:=a;
  repeat
    x:=x+step;
  if yy<abs(F(X)) then yy:=abs(F(X));
  until x>b;
   dx:=300/xx;
   dy:=220/yy;
   x:=a;
  repeat
   y:=F(X);
   putpixel(320+round(dx*x),240-round(dy*y),5);
   x:=x+step;
  until x>b;
   readln;
   closegraph;
end.