Всё вылетает при использовании InitGraph((, Помогите! Опции

[kapusta]

Не могу понять в чём дело, пытаюсь нарисовать точку прямую, без разницы, програма вылетает на любой из этих команд... Глянте плиз, что я не так делаю?

Код

program test;
uses graph, crt;
const gpath = 'Y:WIN_APPSBPBGI';
var c: char; gd,gm: integer;
begin
clrscr;
gd:=detect;
initgraph (gd,gm,gpath);
readln;
line(1,1,100,100); {Вот на этом месте всё вылетает}
closegraph;
readln;
end.

Сообщение отредактировано: kapusta - 3.03.2007 20:48