Числа на четных местах в массиве - Паскаль

Задача. Ввести массив, содержащий не более 100 чисел вещественных чисел. Вывести числа, стоящие на четных местах в массиве.
Решение.

Рrogram Wtr;
Const
Nmax=100;
Var
X : Array[1..Nmax] Of Real;
i, n : Integer;
Begin
Writeln('Введите количество чисел');
Readln(n);
Writeln('Введите массив');
For i:= 1 To n Do
Read (X[i]);
For I:= 1 To n div 2 Do
Write (X[2*i]);
End.