Turbo Pascal Number Guesser

In my ICT 12 Gblock class, Mr. Vogel has been teaching us the different techniques of how to use turbo pascal. We created a new program called number guesser. We created this program to ask the user to give any number from 1 to 100. The program then would tell the user if the number was too high or to low. Once the user has correctly determined the number the program will then ask the user if they wanted to play again with a yes or no question. If the user does not want to play again, the program thanks the user for playing and ends, if then the user wants to play again the program it re-starts from the beginning.