дан одномерный массив а из семи элементов
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