没有初始化。
需要先执行 initgraph
可以参考tp中的帮助信息：
 uses Graph;

 var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
 begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,' ');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin  { Do graphics }
    Line(0, 0, GetMaxX, GetMaxY);
    Readln;
    CloseGraph;
  end
  else
    Writeln('Graphics error:', GraphErrorMsg(ErrCode));
 end.

可我运行你的程序后出现Graphics error:Device driver file not found (EGAVGA.BGI)
我想可能是路径问题，把默认路径设为了E:\TP\BGI\
结果一运行整个屏幕都黑了
只得用alt+回车退出。
这是怎么回事，是因为屏幕么？

可我运行你的程序后出现Graphics error:Device driver file not found (EGAVGA.BGI)
我想可能是路径问题，把默认路径设为了E:\TP\BGI\
结果一运行整个屏幕都黑了
只得用alt+回车退出。
这是怎么回事，是因为屏幕么？