Printing an array in pascal as an ArrayType in Pascal

Question

This program is supposed to sort an array and fill it with random integers from 1 to 1000. It needs to find the maximum value and print the array. It prints the array in two way