Не могу запустить

[volna]

Я написал текст программы:

program Graphika;
uses graph;
var gr: integer;
gm: integer;
errocode: integer;
begin
gr:=detect;
initgraph (gr,gm,'');
errocode:=graphresult;
if (errocode <>grOk) then
begin
writeln ('Oshibka sozdania graphiki');
halt(1);
end;
line (0, 0, 60, 100);
readln;
closegraph;
end.

Однако выдается "Oshibka sozdania graphiki", которое написано в writeln, вместо необходимой линии. Подскажите, пожалуйста, где я допустил ошибку.

[Stilet]

Это не в коде ошибка. Это просто прога не видит дров BGI.
если не ошибаюсь нужно рядом с ней положить нужный bgi файл

[volna]

Что-то я не вижу в school pak подобные драйвера. Может, они там по-другому называются?

[__STDC__]

попробуйте вместо detect делать detectgraph(gr,gm); Вдруг.... У меня кстати в FPC работает... Так что вероятно и правда проблема в BGI.. я скул пак не юзаю.. Но тут где-то есть один товарищ, всем советует, он наверняка знает)

[volna]

detectgraph(gr,gm) он воспринимает как ошибку

[__STDC__]

О_О скачайте FPC ради всего святого... http://freepascal.org

[OCTAGRAM]

В school pak должно быть x:\bp (и, кстати, это вроде бы на первой странице в мануале)