Как заполнить массив? Pascal

Как заполнить одномерный массив, чтобы цифра в массиве соответствовала индексу.

Например:

x: array [1..7] of integer;

и чтобы под 1 было 1, под 5 - 5 и т. д.