Pascal/Turbo Pascal - POrque no funciona readkey en graph?

Resulta que ayer se me ocurrio como hacer el juego que tenes q hacer lineas de a 4 en el tablero, lo iba a hacer simplemente con la CRT pero por cuestiones de aprender mas se me ocurrio investigar la libreria grafica de pascal.

Ya relativamente la domino pero tengo un problema con las funciones de la crt, no se que pasa, no funcionan ni readkey ni keypressed y todo eso y no tengo otra forma de ingresar datos por teclado porque graph no tiene rutinas para eso....

eh visto varios ejemplos y las utilizan a readkey pero a mi me compila y todo, aprieto una tecla y no pasa nada.... alguien sabria porque es? desde ya gracias.

Dejo el code

[QUOTE]

Program InterGraf01;

Uses CRT,SysUtils,Graph;

Const
//Colores
Black=0;Blue=1;Green=2;Cyan=3;Red=4;Magenta=5;Brown=6;LightGray=7;
DarkGray=8;LightBlue=9;LightGreen=10;LightCyan=11;LightRed= 12;
LightMagenta=13;Yellow=14;White=15;

//Ventanas
LongVentana = 475;
AnchoVentanaDerecha = 630;

//Rangos;
Ancho = 7; Alto = 8;

//Otros
RadioFichasX= 17;
RadioFichasY= 17;

Type TFicha=Char;

TJugador = Record
Nick:String;
Jugadas:Integer;
End;

//Matriz de juego;
TTablero = Array[1..Ancho,1..Alto] Of TFicha;

//Variables Globales;
Var
gd,gm:SmallInt; //Manejador Grafico y Manejador de color respectivamente;
Tablero:TTablero;
Win:Boolean;
Player01,Player02:TJugador;
car:CHar;
//------------------------------------------------------------------------------
Procedure InicializarModoGrafico;

Begin
gm:=Detect; //tmb podemos usar gm:=Detect;
gd:=Detect; // //tmb podemos usar gm:=Detect;

{gm:=vgahi; //tmb podemos usar gm:=Detect;
gd:=vga; // //tmb podemos usar gm:=Detect; }

InitGraph(gd,gm,'');
if GraphResult <> grOk then
begin
Writeln('Driver ',gd,' Modo Grafico ',gm,' No Soportado');
Halt(1);
end;

End;

//------------------------------------------------------------------------------

Procedure InicializarTablero(Var Tablero:TTablero);

Var i,j:Integer;

Begin

For i:=1 To Ancho Do
For j:=1 To Alto Do Tablero[i,j]:= '0';

End;

//------------------------------------------------------------------------------
Procedure Ambiente;

Var Vent01Activa,Vent02Activa:Boolean;

Begin

//Dibujamos Ventana de la izquierda;
Setviewport(5,5,220,LongVentana,Vent01Activa);
SetFillStyle(1,Brown);
Bar(5,5,220,LongVentana);
SetFillStyle(1,Black);
Bar(15,15,205,LongVentana-10);

//Coloco titulos en ventana izquierda;
SetTextStyle(2,0,2);


//Dibujo VEntana Derecha;
Setviewport(230,5,AnchoVentanaDerecha,LongVentana,Vent02Activa);
//Dibujamos Ventana de la izquierda;
SetFillStyle(1,Brown);
Bar(0,5,400,LongVentana);
SetFillStyle(1,Black);
Bar(10,15,390,LongVentana-10);

ENd;

//------------------------------------------------------------------------------
Procedure DibujarTablero(Tablero:TTablero);

Var i,j,XActual,YActual:Integer;

Begin

//Creo El Rectangulo Azul:
SetColor(White);
SetFillStyle(1,Blue);
Bar(30,380,370,20);

//Rotulo del fichero;
SetFillStyle(0,Black);
Bar(40,50,360,30);
SetTextStyle(2,0,1);
OutTextXY(45,35,'1 2 3 4 5 6 7 8');

//INicializo Variables;
XActual:=60; YActual:=80;

//Tablero[1,2]:='1';
//Tablero[6,4]:='2';

For i:=1 To Ancho Do

Begin
For j:=1 To Alto Do
Begin

Case (Tablero[i,j]) Of
'0':Begin
SetColor(White);
SetFillStyle(0,Black);
FillEllipse(XActual,YActual,RadioFichasX,RadioFichasY);
End;
'1': Begin
SetColor(White);
SetFillStyle(1,Red);
FillEllipse(XActual,YActual,RadioFichasX,RadioFichasY);
End;
'2':Begin
SetColor(White);
SetFillStyle(1,Yellow);
FillEllipse(XActual,YActual,RadioFichasX,RadioFichasY);
End;
End;

XActual:=XActual + 40;

End;

XActual:=60;
YActual:=YActual + 40;

End;

End;
//------------------------------------------------------------------------------

Procedure MeterEnTablero(Columna,Player:Integer;Var Tablero:TTablero);

Var i:Integer;
Metida:Boolean;

Begin

i:=1;
Metida:=False;

While (Tablero[i,Columna]='0') And (i<=8) Do Inc(i);

Case Player Of
1: tablero[i-1,Columna]:='1';
2:tablero[i-1,Columna]:='2';
End;
End;

//------------------------------------------------------------------------------

//Procedure Jugar(Var Player:TJugador;Var Tablero:TTablero);

//---------------------------------------------------------------------------
//PRINCIPAL
//------------------------------------------------------------------------
Begin

//Inicializacion de Variables;
Win:=False;
InicializarTablero(Tablero);
InicializarModoGrafico;
Ambiente;
DibujarTablero(Tablero);
car:=Readkey;
Closegraph; //Mata al modo grafico;

End.

[/QUOTE]

Supongo que estás usando Free Pascal.

Al poner "uses crt" te abre una consola y es en ella en la que deberías teclear, no en la ventana gráfica; la ventana gráfica no responde.

En Free Pascal, para usar teclado y la unidad gráfica a la vez, utiliza "winCrt" en lugar de "crt".