Программа  включения  строки Y  в  матрицу X максимального размера 10×10 элементов на позицию M. Строка N11 — резервная — Pascal(Паскаль)

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