Replaced constant with an array length look up in Binary Search experiment in Pascal.