Задача на построение графика функции

uses Graphabc,crt;
var n,m,k,x,y:real;
function f(x:real):real;
Begin
f:= (sqrt(2*x-5))/(3*x*x-1); //Система координат
End;
procedure axis;  //Рисование системы координат
Begin
SetPenColor(clBLACK);
SetPenWidth(2);
line(0,WindowHeight div 2,WindowWidth,WindowHeight div 2);
line(WindowWidth div 2,0,WindowWidth div 2,WindowHeight);
End;
begin SetWindowSize(800,600);
writeln ('начало интервала>=2,5'); readln(n);
writeln ('конец интервала >=2,5'); readln(m);
writeln ('шаг'); readln(k);x:=n;
repeat  y:=(sqrt(2*x-5))/(3*x*x-1);  write (x:5:2);  writeln (y:5:2);
x:=x+k;
 until    x>m;
 axis;
 
end.

uses Graphabc,crt;
function f(x:real):real;
Begin
f:=sqrt(2*x-5)/(3*x*x-1); //функция
End;
var n,m,k,x,y,max,mx,my:real;
    x0,y0,i:integer;
    s:string;
begin
repeat
write ('начало интервала n>=2.5  n=');
readln(n);
until n>=2.5;
repeat
write ('конец интервала m>',n:0:1,' m=');
readln(m);
until m>n;
repeat
write ('шаг<',m-n:0:1,' k=');
readln(k);
until k<m-n;
x:=n;
repeat
writeln('x=',x:5:2,' y=',f(x):6:4);
x:=x+k;
until x>m;
writeln('Нажмите Enter для перехода в графический режим');
readln;
clrscr;
hidecursor;
SetWindowSize(800,600);
CenterWindow;
max:=f(n);//найдем максимум от 2,5 до конца
x:=2.5;
while x<=m do
 begin
  if f(x)>max then max:=f(x);
  x:=x+0.1;
 end;
x0:=50;//начало координат
y0:=windowheight-50;
mx:=(windowwidth-x0-30)/m;//масштаб по Х
my:=(y0-10)/max;//масштаб по У
line(0,y0,windowwidth,y0);
line(x0,0,x0,windowheight);
for i:=1 to trunc(m)+1 do//максимальное количество засечек по оси Х
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3); //засечки на оси Х
   //подпись оси Х
  textout(x0+round(i*mx),y0+10,inttostr(i));
 end;
for i:=1 to trunc(100*max)+1 do//максимальное количество засечек  по оси Y
 begin
  line(x0+3,y0-round(i*my/100),x0-3,y0-round(i*my/100)); //засечки на оси Х
  //подписи по оси Y
  str(i/100:0:2,s);
  textout(x0-40,y0-round(i*my/100),s);
 end;
textout(x0+5,y0+10,'0');
textout(windowwidth-20,y0-20,'X');
textout(x0+10,10, 'Y');
setpencolor(clRed);
x:=n; //или 2.5 если весь графмк строить
while x<=m do
 begin
  if x=n then moveto(x0+round(x*mx),y0-round(f(x)*my))
  else lineto(x0+round(x*mx),y0-round(f(x)*my));
  x:=x+0.1;
 end;
end.