Помогите, пожалуйста с Pascal !Задание:Массив А задается с клавиатуры.Создайте массив Б

Const
n=10;
var
a,b:array[1..n]of integer;
i,k:integer;
begin
    for i:=1 to n do
        read(a[i]);
               for i:=1 to n do
                      if a[i] mod 2=0 then
                            begin
                                 k:=k+1;
                                 b[k]:=a[i];
                            end;
writeln;
             for i:=1 to k do
                   write(b[i]:4);
end.