[lmikle]

А чем тебя мой вариант не устроил?

а адаптировать посто.
1. Выкидываешь uses crt;
2. В начало, после строки с program, вставляешь {$APPTYPE CONSOLE}