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

const N=10;var   mas: array [1..N] of integer;  i: integer; begin  write('Введите элементы массива: ');  for i:=1 to N do    read(mas[i]);  write('Вывод элементов массива: ');  for i:=1 to N do    write(mas[i],' ');end.