Crossing the Road solutions

Crossing the Road was solved using Pascal by 2 contestants. Solution sizes: average 2600 bytes (shortest: 2393; longest: 2809).