[fpc-pascal]Sleep until key press?

[Rich Pasco]

This works under Windows; I don't know about Linux:

  uses Windows, CRT;
  begin
    ...
    while not keypressed do sleep(1);
    ...

     - Rich