Works fine, assure that the bgi drivers are present and stuff.

As WD said, you're probably missing the .BGI file in the same folder as your executable, just out of curiosty add

1cleardevice;

after initgraph and before closegraph
and

1writeln(graphresult);

after closegraph and before end. so you can see what (if anything) went wrong as a numerical result since, at the moment, it's doing nothing and it might indeed be working and you're just simply not noticing (on exit TP restores the CRT mode and it exits right after closegraph; if you want it to wait, add

1readln;

after cleardevice, so you can see your wonderful black graphics screen).

The BGI file is present... When I trace the program with F8, it works normally, when i try to start it with Ctrl-F9, DosBox window immediately closes.

System is Win7, when I used XP, all programs worked normally.

ctrl-f9 is the key shutdown dosbox

This is zip with program and TP.

ctrl-f9 is the key shutdown dosbox

😀 😀 😀 Hah!
Thanks!