Не получается вывести графику на паскале Опции

[Verof]

Написал простую программу для вывода графики, запускаю , компиллятор переходит в полноэкранный режим с отображением кода, а вывода графики нету , сообщений об ошибках тоже, Что делать , помогите , плиз

Код

program first;
uses Graph;
var
    grDriver, grMode, ErrCode, res:Integer;
begin
  grDriver :=detect;
  Initgraph(grDriver, grMode, ' c:\tp7\bgi' );
ErrCode:=graphResult;
if ErrCode= grOk then
begin
line(20,20,80,80);
end;
CloseGraph;
end.