Funcion inicial (estoy empesando)

Program MIPONG;
Global
int RESOLUCION_X;
int RESOLUCION_Y;
BEGIN

// INICIALIZAR ASPECTOS GRAFICOS

set_title(“mi primer pong”); //pong game
Full_screen = false; // No queremos que se ejecute a pantalla completa
Graph_mode = mode_16bits; //el modo grafico sera de 16bits
set_mode (m640x480); //resolucion de 640×480
set_fps(60, 60/10);// Establecemos los fps que queremos

RESOLUCION_X = 640; //Almacenamos en dos variables la resolucion
RESOLUCION_Y = 480; // Para utilizarlo despues

//ESCRIBIR INFORMACION SOBRE EL JUEGO EN PANTALLA
write(0,10,10,0,”Mi Primer Pong,v. 0.01″);
write(0,10,20,0,”Team Inforg”);
write_int(0,300,10,1,&fps);

//HEMOS TERMINADO DE INICIALIZAR, LANZAMOS EL BUCLE PRINCIPAL
Controlador_Juego(); //Arrancamos el controlador del juego
END

//////////////////////////////////
// controlador del juego (aqui se controla el juego)

Process Controlador_Juego()
BEGIN

Loop //Bucle principal

If(key(_esc)) //si se pulsa escape
exit(0,0); //salir del juego
END

Frame; // Refrescar pantalla

END // del loop

END

//Objetos especiales
Jugador *Puntero_Jugador; //Puntero al jugador
Enemigo *Puntero_Enemigo; // Puntero al enemigo
list Disparos; //Lista de punteros a los disparos
list Enemigos; //lista de punteros a los enemigos

void Crea_Enemigos(int Separacion)
{
if( rand()%Separacion == 1 )
{
Enemigos.push_back( new Enemigo(Grafico_Enemigo, rand()%Resolucion_X, 15) );
}
}

void Actualizar()
{
Puntero_Jugador->Actualiza();
Puntero_Enemigo->Actualiza();
Crea_Enemigos(60);

// Actualizar todos los enemigos
list::iterator it_enemigos;
for(it_enemigos = Enemigos.begin(); it_enemigos != Enemigos.end(); it_enemigos )
{
(*it_enemigos)->Actualiza();

if((*it_enemigos)->Eliminar)
{
delete *it_enemigos;
*it_enemigos = NULL;
}
}
Yo creo que tiene el fallo tiene que estar aquí pero te envió los archivos por si no estuviera el fallo aquí.
Cada vez estoy mas cerca del final