pascal wait for key

program WaitForKey;
begin
  WriteLn('Press any key to continue...');
  ReadLn;
end.