FreePascal.ru

ps: Цикл с предусловием - вообще шикарно.
проверка на Esc до того как считывается клавиша ? Да, фейл.

Вообщем ошибка в readkey ( if key <> 0 then ):
function readkey(iswait&#58; boolean = False)&#58; char;
var
key&#58; tkeyevent;
begin
if iswait = True then
Key &#58;= PollKeyEvent;
if key ...

поменял на:

результат тот же =(

Ситуация в том что программа не реагирует на нажатие клавиш, за исключением определенных случаев.

1) если не вызывать ф-цию stPop (либо дважды вызывать перед ней stPush)
2) если превратить ф-ции stPop и stPush в процедуры (вырезав только result:=)
3) если подключить модуль crt, и использовать ...