Записать все четные по значению элементы массива а в массив b

Var A:array[1..100] of integer;
    B:array[1..100] of integer;
    i,j,k:integer;
Begin
    write('Введите кол-во элементов массива: ');readln(k);
    writeln('Массив A');
    j:=0;
    For i:=1 to k do
     Begin
      A[i]:=Random(50);
      write(A[i]:3);
      if A[i] mod 2 = 0 then
       Begin
        inc(j);
        B[j]:=A[i];
       End;
     End;
    writeln;
    writeln('Массив B');
    For i:=1 to j do
     write(B[i]:3);
End.

Var i,s:integer;
    a:boolean;
Begin
    i:=99;a:=true;
    While (i<999)and(a) do
     Begin
      inc(i);
      s:=(i div 100)+((i div 10) mod 10)+(i mod 10);
      if (i mod 2 = 0)and(i mod 5 = 0)and(i mod 7 = 0)and(s=12) then a:=false;
     End;
    if not a then writeln('Такое число: ',i) else writeln('Нет такого числа');
End.

Var i,n,m:integer;
Begin
    write('Введите кол-во чисел для генерации: ');readln(n);
    For i:=1 to n do
     Begin
      m:=Random(9000)+1000;
      if (m div 1000)=(m mod 10) then write(m:6);
     End;
End.