Пример. Стандартный фрагмент работы с графикой.

Program...
Uses
  graph;
.....
Var
  grDr ,grMd,Er:integer;
......
Begin
 grDr := Detect; {автоматич.определ.драйвера}
 InitGraph(grDr,grMd,’’);{драйвер в текущем каталоге}
 Er := GraphResult; {Код ошибки}
 If Er=grOk then
   Begin {Графический режим}
   .....
   CloseGraph;
  End
  Else
    WriteLn(’Ошибка графики:’,Er,’.,GraphErrorMsg(Er));
.....
end.

---