TurboPascal сбрасывает в режиме Graph

program grph;
 
uses graph;
 
var
  gdriver, gmode, errorcode, w, h: integer;
  x0, y0, x1, y1, x2, y2, i, j, x, y: integer;
  fx1, fx2, fy1, fy2, m: real;
 
function f1(x: real): real;
begin
  f1:=Sin(x);
end;
 
function f2(x: real): real;
begin
  f2:=Cos(x-1)+Abs(x);
end;
 
begin
  gdriver:=DETECT;
  initgraph(gdriver, gmode, '..\BGI');
  errorcode:=graphresult;
  if errorcode <> grOK then
    begin
      writeln('Press any key to exit...');
      readln;
      exit;
    end;
  setbkcolor(0);
  cleardevice;
  w:=getmaxx;
  h:=getmaxy;
  m:=40;
  x0:=w div 2;
  y0:=h div 2;
  setcolor(7);
  line(x0, 0, x0, h);
  line(0, y0, w, y0);
  x:=1;
  repeat
    x1:=x0+(x*round(m));
    x2:=x0-(x*round(m));
    line(x1, y0-3, x1, y0+3);
    line(x2, y0-3, x2, y0+3);
    inc(x);
  until
    (x1>w) or (x2<0);
  y:=1;
  repeat
    y1:=y0+(y*round(m));
    y2:=y0-(y*round(m));
    line(x0-3,y1,x0+3,y1);
    line(x0-3,y2,x0+3,y2);
    inc(y);
  until
    (y1>h) or (y2<0);
  setcolor(9);
  for x:=1 to w do
    begin
      fx1:=(x-1-x0)/m;
      fy1:=f1(fx1);
      fx2:=(x-x0)/m;
      fy2:=f1(fx2);
      y1:=y0-round(fy1*m);
      y2:=y0-round(fy2*m);
      line(x-1,y1,x,y2);
    end;
  setcolor(6);
  for x:=1 to w do
    begin
      fx1:=(x-1-x0)/m;
      fy1:=f2(fx1);
      fx2:=(x-x0)/m;
      fy2:=f2(fx2);
      y1:=y0-round(fy1*m);
      y2:=y0-round(fy2*m);
      line(x-1,y1,x,y2);
    end;
  readln;
  closegraph;
end.