Дана последовательность натуральных чисел а1, а2, … аn. Создать массив из четных чисел этой последовательности. Если таких чисел нет, то вывести сообщение — Pascal(Паскаль)

USES CRT;
var
X,y:array [1..16] of byte;
i:byte;
Begin
 CLRSCR;
 Randomize;
 Write('Последовательность: ');
 For i:=1 to 16 do
 X[i]:= random (40);
 For i:=1 to 16 do
 Write (X[i],' ');
 Writeln;
 write('Четные: ');
 For i:=1 to 16 do
 If X[i] mod 2=0 then
begin
 write(x[i],' ');
end;
Readkey;
end.