Заполнить массив А первыми Н натуральными числами, начиная сХ(ввести Х с клавиату?

Var i,n,x:integer; a:array[1..100]of integer; begin   redln(n,x);   for i:= 1 to n do   a[i]:=x+i-1;   //дальнейшие операции с массивом end.