Паскаль не рисует!

[fire_on]

Привет всем!
У меня проблема: я создал графическую прогу, но она не работает! Вроде все как надо: путь к файлу egavga указал, файл graph.tpu поставил куда надо, и при компиляции тут же к этой граф. проге создается EXE-шник, но как только я прогу запускаю, неважно из редактора или exe-шником, она вылетает и ничего не рисует! Помогите разобраться!

[anGeee]

Ну может стоит поставить в конце программы пару ReadLn'ов или ReadKey, если CRT подключен ?

[fire_on]

Сообщение от anGeee

Ну может стоит поставить в конце программы пару ReadLn'ов или ReadKey, если CRT подключен ?

readln уже поставлен. и не один.

[bondik]

исходный код,будь добр,выложи

[Krechet]

код в студию!

[fire_on]

Uses graph;
Var gd, gm:integer;
x,y,r, style, color:integer;
begin
writeln ('радиус');
readln (r);
writeln ('стиль и цвет?');
readln (style, color);
gd:=detect;
initgraph (gd,gm,'c:\Program Files\BP\bgi');
x:=getmaxx div 2;
y:=getmaxy div 2;
setcolor (color);
circle (x,y,r);
setfillstyle (style, color);
floodfill (x,y,color);
readln;
readln;
closegraph;
end.

[puporev]

Попробуйте модули Grapf и Egavga положить в папку с программой, а путь просто написать ''. Мне кажется папка Program Files просто недоступна. Вообще рабочие программы и модули не надо держать во всякого рода служебных директориях.
Программа нормально работает, проверил.

[Doholyan]

и не пользуйся процедурами WriteLn в графическом режиме...привыкай к гафическим процедурам

[puporev]

и не пользуйся процедурами WriteLn в графическом режиме.

А он и не пользуется, эти процедуры идут до входа в графический режим.

[Doholyan]

puporev
________
видел.....