Во-первых, у тебя должен быть файл egavga.bgi в том же каталоге, что и твоя программа (это что-то типа графического драйвера)
Код:

uses Graph;
....
Var
i, j: integer;
Begin
i:=0; // Графический режим, 0 - автоопределение
InitGraph(i, j, '') // Вместо '' может быть путь к egavga.bgi
...... // Рисование ...
CloseGraph; // Переход в текстовый режим