The CRT unit has a procedure called delay
program howto ;
uses crt ;
The argument of delay
is the length of the delay in milliseconds. delay(1000)
pauses the program for one second. Depending on how accurate your delay has to be you might want to use delay(950)
or some other number less than 1000. Experiment.