fpc/docs/crtex/ex2.pp

Program Example2;
uses Crt;

{ Program to demonstrate the KeyPressed function. }

begin
  WriteLn('Waiting until a key is pressed');
  repeat
  until KeyPressed;
{The key is not Read, so it should also be outputted at the commandline}
end.