как закрыть программу на pascal если посредине кода пользователь ввел неверную инфу?

У меня есть код легонькой программы, но если пользователь введет код то откроется секретная надпись, а если пользователь ввел код неверно программа должна закрыться! Как это сделать? За лучший ответ даю 20 баллов!