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

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