Вот в программе используются 3 раза однотипные фразы, и 3 раза другие однотипные.
Что будет лучше:
а) Выводить эти фразы writeln-ом где надо.
б) Вызывать из процедуру msg(1); - 1ый тип фраз msg(2)- 2ой тип фраз.
Я думаю вариант Б, ибо редактировать легче и кода чуток меньше.
Лучше всего пользоваться константами. И не мучать разум подобной "оптимизацией".
Читать
Вариантом Б когда-то пользовался. Удобно для имитации ИИ программы: для получения передаваемого в процедуру параметра msg пишется заумная формула с применением генератора случайных чисел, на выходе получаем "разумный диалог" с программой.