Pascal/Turbo Pascal - Juego del Gato

Tengo un proyecto con el juego del gato para el lunes y no me funciona estoy tabajando con matices y vectores en modo texto solo que se me han presentando muchos problemas.

Agradecería si alguno me ayuda.

Gracias

En
http://mx.geocities.com/antrahxg

En la seccion de archivos que esta dentro de la seccion de pascal, hay un ejemplo del juego del gato usando matrices, (creo , ya no me acuerdo), creo que la maquina no intenta ganar, pero si intenta evitar que ganes, y dentro de eso, a veces gana la maquina. Tal vez te sirva