Странное поведение программы (Pascal)

[kkrk]

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

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

FreePascal 2.6.4

{$MODE OBJFPC}
program main;
//uses crt;
uses keyboard;
 
type
  PList = ^TList;
 
  TList = record
    Data: byte;
    prev: PList;
    Next: PList;
  end; 
 
var
  c:char;
    dat:byte;
  st:Plist;
 
function readkey(iswait: boolean = False): char;
var
  key: tkeyevent;
begin
  if iswait = True then
    Key := PollKeyEvent;
  if key <> 0 then
  begin
    Key := GetKeyEvent;
    Key := TranslateKeyEvent(Key);
  end;
  Result := GetKeyEventChar(Key);
end; 
 
function stEmpty(aList: Plist): boolean;
begin
  Result := (aList = nil);
end;   
 
function stPush(var aList: PList; aData: byte): PList;
var
  p: PList;
begin
  new(p);
  p^.Data := aData;
  p^.prev := aList;
  alist := p;
  Result := p;
end;
 
function stPop(var aList: PList; var aData: byte): PList;
var
  p: PList;
begin
  Result := nil;
  if stEmpty(aList) then
    exit;
 
  p := alist;
  alist := alist^.prev;
  Result := p^.prev;
  dispose(p);
 
end;
 
                    
 
begin
initkeyboard;
stPop(st,dat);
 
repeat
c:=readkey;
//------
until c=#27; 
 
 
 
end.

[Вадим Мошев]

Код особо не читал.
У вас есть функция readkey

function readkey(iswait: boolean = False): char;

Я бы советовал переименовать её, так как, насколько мне известно, такая функция уже содержится в модуле CRT.

Ну и общий совет. Опишите задачу, которую вы решаете, напишите действия, которые вы совершаете, как на них должна реагировать программа, и как она реагирует при текущем положении дел.

[Stilet]

А почему ты решил, что не реагирует?

[kkrk]

А почему ты решил, что не реагирует?

при нажатии на Esc (#27) ничего не происходит.

Сообщение от Вадим Мошев

Код особо не читал.
У вас есть функция readkey

function readkey(iswait: boolean = False): char;

Я бы советовал переименовать её, так как, насколько мне известно, такая функция уже содержится в модуле CRT.

Да, но я не использую модуль crt ( строку с uses я закомментировал ). Можно поменять название ф-ции на любую другую, результат тот же =)

Ну и общий совет. Опишите задачу, которую вы решаете, напишите действия, которые вы совершаете, как на них должна реагировать программа, и как она реагирует при текущем положении дел.

Задачу не привел, задачи как таковой нету. Ковыряю для себя указатели\динамические структуры (стеки,списки,очереди). То есть меня больше интересует не решение (т.к я могу использовать любой из трех способов указанных сверху), а объяснение почему так происходит, если оно возможно ) И в чём моя ошибка, или может дело в конкретно в компиляторе, потому что я уже и не знаю на что думать. Вот такое садомазо.)

p.s: конкретно ставит в тупик этот пункт:

если превратить ф-ции stPop и stPush в процедуры (вырезав только result:=)

то программа работает как нужно. (выходить при нажатии Esc)