Programm stuck in a loop

[webdev]

I have to design a relatively simple game-type programm on pascal It has to generate a way, which the player will have to guess. They way can only go horizontaly or verticaly. Im usign 10x10 array for this. The problems start, when im making the way for player and checking if randomly roled next...