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

const
n=10;
var
i,k:integer;
a,b:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=random(20);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');

k:=0;
for i:=1 to n do  begin
   if a[i] mod 2=0 then begin
        k:=k+1;  b[k]:=a[i];
   end;
end;
if k=0 then write('Net chetnih chisel!');

writeln('-------');

for i:=1 to n do
  write(' ',b[i]:3);
writeln();
end.