Создать массив B из четных элементов исходного - Free Pascal

program Project1;
 
var i, cnt : integer;
    A, B : array[1..30] of integer;
 
const n=30;
 
begin
cnt := 1;
for i := 1 to n do begin
  read(A[i]);
  if (A[i] mod 2 = 0) then begin
    B[cnt] = A[i];
    inc(cnt);
  end;
end;
 
end.