Turbo Pascal version 1.0 - fixing a bug in Randomize

If you try the Randomize procedure in Turbo Pascal version 1.0, you will notice that it doesn’t do anything at all.  The original manual says it will re-seed the random number generator function so that it doesn’t start with the same random numbers each time.
In the Turbo Tutor version 1 book, section 20.1, there is a replacement [...]