Паскаль. написать программу для ввода произвольных чисел в одномерный массив. (размер массива произвольный, элементы вводятся с клавиатуры)

Program z;Var mas: array[1..1000000] of integer;i,n: integer;Beginread(n);   for i:= 1 to n do       read(mas[i]);end.