It's been a long time since I programmed in Pascal ;-)