Дан одномерный массив а из семи элементов
25 24 10 60 4 100 -11

1) a:array[1..7] of integer = (25, 24, 10, 60, 4, 100, -11)
или (если без значений)
a:array[1..7] of integer
2) a[5] = 4
3) a[a[5]] = a[4] = 60