https://remp3indir.net/pascal-language-array-example/