Bufff....
Eso es una programacion muy "guarrilla" 
Si te llega a ver mi profesora de Pascal... "SUSPENDIDO DE POR VIDA"
Si fuera Sheldon Cooper quien hubiera visto ese codigo diria:
Mirate el enlace que te he puesto que ahi lo tienes solucionado, pero miralo... que me da a mi que has hecho caso omiso 