Построить график функции

program Noname1;
 uses graph;
     const a =-10;b:=10;
     var tvark, grafin_v: integer;
         xe, ye, i: integer;
         x, y, h: real;
         s: string;
    begin
     tvark := detect;
     initgraph(tvark, grafin_v, '');
     SetBkcolor(15); ClearDevice;
     setcolor(1);
     OutTextXY(80, 30, ' y = 4*((sqrt(abs(x-1)))/(x-2)) grafik');
      x := a;
     h := 0.001;
     while x <= b + h do
       begin
         y := 4*((sqrt(abs(x-1)))/(x-2));
         xe := round(150 + 25* (x + 10));
         ye := round(50 + 4 * (100 - y));
         if abs(round(x) - x) <= 0.0001
             then  begin
                    circle(xe, ye, 2);
                    line(xe, 445, xe, 455);
                    if xe <> 400
                       then begin
                              str(x:3:0, s);
                               outtextxy(xe - 15, 465, s);
                            end
                       else outtextxy(xe, 465, '0');
                  end
            else putpixel(xe, ye, 4);
          x := x + h;
       end;
     line(100, 450, 750, 450);
     line(750, 450, 740, 445);
     line(750, 450, 740, 455);
     outtextxy(750, 460, 'X');
     line(400, 20, 400, 700);
     line(400,20,405,30);
      line(400, 20, 395, 30);
     outtextxy(410, 20, 'Y');
     for i := 1 to 10 do
       begin
         line(395, 440 - 40 * i, 405, 440 - 40 * i);
         str(i * 10, s);
         outtextxy(415, 437 - 40 * i, s);
        end;
     readln;
     closegraph;
   end.

program Noname1;
uses graph;
const a =-10;b=10;
var tvark, grafin_v: integer;
    xe, ye, i: integer;
    x, y, h: real;
    s: string;
begin
tvark := detect;
initgraph(tvark, grafin_v, '');
SetBkcolor(15);
setcolor(1);
OutTextXY(50, 30, ' y = 4*((sqrt(abs(x-1)))/(x-2)) grafik');
x := a;
h := 0.001;
while x <= b + h do
 begin
  if abs(x-2)>=h then
   begin
    y := 4*((sqrt(abs(x-1)))/(x-2));
    xe := round(120 + 25* (x + 10));
    ye := round(50 + 4 * (100 - y));
    putpixel(xe, ye, 12);
    if (xe-120) mod 25=0 then
     begin
      line(xe,445,xe,455);
      str((xe-120)div 25-10,s);
      if xe<370 then outtextxy(xe-10,465,s)
      else outtextxy(xe,465,s)
     end
   end
  else putpixel(xe, ye, 4);
  x := x + h;
 end;
line(100, 450, 750, 450);
line(750, 450, 740, 445);
line(750, 450, 740, 455);
outtextxy(750, 460, 'X');
line(370, 20, 370, 700);
line(370,20,365,30);
line(370, 20, 375, 30);
outtextxy(410, 20, 'Y');
for i := 1 to 10 do
 begin
  line(365, 440 - 40 * i, 375, 440 - 40 * i);
  str(i * 10, s);
  outtextxy(385, 437 - 40 * i, s);
 end;
readln
end.