Pascal - Problema con la Initgraph

Salve a tutti, ho iniziato a usare la Initgraph da poco tempo e quindi non sono molto esperto.
Una domanda: come mai ogni volta che eseguo il programma questo mi si chiude come se fosse avvenuto qualche problema? come posso risolvere?

P.s. Un'ultima domanda: c'è un modo per far funzionare la initgraph su Dev-Pascal?

Ciao!

Che sistema operativo usi ?

Posta un breve programma d' esempio.
Ad ogni modo, prima di chiudere la grafica, dai il comando readln attendere la chiusura.
Io ti consiglio di utilizzare il classico freePascal, ah un' interfaccia in stile dos, ma molte più funzioni.

ecco qua un esempio:

Program grafica;
Uses Crt,Graph;
Var     MPrincipal,X,Giocatori,Max,Scheda,Modo:integer;
        S:String[1];
bEGIN
Scheda:=detect;
Initgraph(scheda,modo,'C:\FPC');
If Graphresult<>grOK then
        Writeln('ERRORE: modalità grafica non installata correttamente');
        Writeln('Il programma verrà chiuso entro 5 secondi');
        delay(5000);
        halt;
        closegraph;
Circle(1,1,3);

readln;

end.

ah comunque uso windows xp e apro il tp con Dosbox!

Le variabili scheda e modo, devono essere dichiarate necessariamente del tipo smallInt

Posto il programma corretto:

Program grafica; 
Uses Crt,Graph; 
var     Scheda,Modo:smallInt; // Le variabili per la grafica devono
                              // essere necessariamente di tipo smallInt.
bEGIN 
Scheda:=detect; 
modo:=0;
Initgraph(scheda, modo, '');
If Graphresult<>grOK then 
  Writeln('ERRORE: modalità grafica non installata correttamente')
else
begin
  Writeln('Il programma verrà chiuso entro 5 secondi');
  Circle(700, 300, 250); // sposto il disegno del cerchio prima del closegraph
  delay(5000);
  // halt;  // commento il comando halt
  closegraph;
end;
readln; 

end.

@phi , non mi riconosce il tipo di variabile SmallInt ... ho provato con ShortInt ma mi da "type mismatch"... l'unico tipo di variabile con cui parte è integer, ma ritorna sempre il problema dell'errore di prima...

Ce errore di da quando dichiari le variabili smallInt?
In alternativa prova il freepascal (sourceforge.net/projects/freepascal/files/)

Grazie, risolto tutto!!!