3 newby questions -- TP 7.0

 >    WriteLn('Press ENTER to continue');
 >    ReadLn;
 > This throws the 'Press ENTER to continue' msg on the screen

Instead of writeln(), try this:

   write( 'Press any key to continue', #13 );
   ch := readkey;
   if keypressed then ch := readkey; { clean up if extended key pressed }

Write() puts the message on the screen, then the #13 (Carriage Return, without
Line Feed) puts the cursor back at the beginning of the *same* line. The next
text written to the screen will overwrite the message.

Cheers, Todd
{ Todd Fiske - Portland Maine }