Стандартная процедура инициализации графики описана в справке среды разработки.
На всякий случай привожу здесь (вдруг вам лень искать)
Код:
Uses Graph;
Var grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, '');
ErrCode:=GraphResult;
If ErrCode = grOk Then
Begin
{ Графика }
Line(0, 0, GetMaxX, GetMaxY);
ReadLn;
CloseGraph;
End
Else WriteLn('Ошибка инициализации графики:', GraphErrorMsg(ErrCode));
End.
Эта программа рисует диагональную линию из левого верхнего угла экрана, до правого нижнего.