https://remp3indir.net/pascal-program-using-array/