Программа включения нового числа в заданный массивом X ряд чисел — Pascal(Паскаль)

Program P68(Input, Output); 
Const
Nmax = 10; 
Var 
X : Array [1.. Nmax+1] Of Integer;
N : Integer; 
Y : Integer; 
M: Integer; 
i : Integer; 
 
Begin
 
WriteLn ('PASCAL: Включение нового числа в ряд чисел.');
WriteLn ('Введите входные данные:');
Write ('Число элементов ряда (N<=10) N = ');
ReadLn (N); 
WriteLn ('Введите числа ряда:');
For i := 1 To N Do
Begin
Write ('X[', i: 2, '] = '); 
ReadLn (X[i]); 
End;
Write ('Номер позиции, куда вставляем число M = '); 
ReadLn (M);
Write ('Вставляемое число Y = ');
ReadLn (Y); 
 
For i := N Downto M Do 
X[i+1]:=X[i];
X[M]:=Y; 
 
N := N + 1; 
For i:=1 To N Do 
Write (X[i]:4);
WriteLn;
 
ReadLn;
End.