[fpc-pascal] Readline substitute

[Bernd]

2011/5/1 Johann Glaser <Johann.Glaser at gmx.at>:

> If you find any improvements or comments don't hesitate to send me an
> EMail.

I just used it. I only needed readline() and add_history(), these two
functions are already enough to make a ReadLn() substitute that really
works and It works like a charm! Thank you!

I think this code really deserves to be included in FPC.