unit-ul graph in pascal

[•ionzlatan]

problema care se pune in cazul asta este, daca o pot numi asa, functionarea defectuoasa

Cod:

PROGRAM X2; 
{Exemplu pentru Bar3D} 
USES Graph; 
VAR gD, gM, gE: Integer; 
BEGIN 
gD:= Detect; 
InitGraph(gD,gM,''); 
gE:= GraphResult; 
IF gE<>grok THEN 
BEGIN 
WriteLn('EROARE GRAFICA : ', GraphErrorMsg(gE));halt(1) 
END; 
setfillstyle(1,15); 
outtextxy(20,2,'Topoff'); 
bar3d(20,20,65,60,10,topoff); 
outtextxy(140,2,'Topon'); 
bar3d(140,20,185,60,10,topon); 
bar3d(30,80,105,120,10,topon); 
setfillstyle(2,15); 
bar3d(105,100,175,120,10,topon); 
readln; 
CloseGraph 
END {X14}. 

toata lumea o sa spuna ca este in regula....  dar nu este.
la lansarea in executie initgraph functioneaza, dar modul text ramane activ, asta insemnand ca...
se afiseaza bar3d dar la readln nu raspunde
La readln dupa cate stiu, se asteapta apasarea #13 adik enter dar nu este citit asa ca nu se efectuiaza nici close graph nici nimic altceva
Am incercat sa folosesc si unit-ul crt, si in loc de readln am pus readkey, care ar trebui sa citeasca orice tasta.  aceiasi problema
se asteapta citirea tastelor in modul text, care ramane activ si el

Ma poate ajuta cineva
De ce anume la initgraph ramane activ si modul text
De ce se ateapta  cititea   comenzilor de la  tastatura in modul text
cum sa procedez pentru o functionare corecta
exista ceva setari ascunse in Free Pascal pentru asta