this happend because an array index in Pascal by default start from 0
your array in Main program Start From 1 But the array that is defined in procedure is started from 0 By Default
so if you want to print fifth element of array in procedure you mast print num in procedure.
#define A 3// name a constant
long int booking_ID ; ...