freepascal.compiler/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.