Скорее он выдает ответ и окошко сразу закрывается, перед end'ом можно написать readln; тогда результат будет виден.