Обнуление элементов массива Y, встречающихся в массиве X — Pascal(Паскаль)

Program Pro_36 (Input, Output);
Var 
X, Y: Array [1..20] Of Integer;
N1, N2: Integer;
i, j: Integer;
 
Begin
 
WriteLn ('PASCAL: Обнуление элементов массива Y, встречающихся в массиве X.');
 
Write ('Введите размерность массива X: '); 
ReadLn (N1); 
WriteLn ('Введите элементы массива X:'); 
For i := 1 To N1 Do
Begin
Write ('X[', i, '] = '); 
ReadLn (X [i] ); 
End;
 
Write ('Введите размерность массива Y: ');
ReadLn (N2); 
WriteLn ('Введите элементы массива Y:');
For i := 1 To N2 Do
Begin
Write ('Y[', i, '] = ');
ReadLn (Y [i] ); 
End;
 
For i := 1 To N1 Do
For j := 1 To N2 Do
If X [i] = Y [j] Then Y [j] := 0; 
 
WriteLn ('Полученный массив Y:'); 
For i := 1 To N2 Do
Write (' ', Y [i] ); 
 
ReadLn;
End.