Программа ввода элементов одномерного массива (линейной таблицы) заданной размерности N (N <= 100) - Pascal(Паскаль)

Program N16 (Input, Output);
Var 
X : Array [1..100] Of Integer;
N : Integer;
i : Integer;
 
Begin
 
WriteLn ('PASCAL: Ввод элементов одномерного массива.'); 
Write ('Введите размерность N массива (N<=100): '); 
ReadLn (N); 
WriteLn ('Введите элементы:');
For i := 1 To N Do
Begin
Write ('X[', i, '] = '); 
ReadLn (X[i]); 
End;
 
WriteLn ('Ввод закончен.'); 
 
ReadLn;
End.