Образовать новый массив В12, элементами которого будут элементы исходного массива А12, имеющие четное значение

const
  n = 12;
 
var
  a, b: array [1..n] of integer;
  x, y, minA, minB, i, t: integer;
 
begin
  repeat
    Write('Введите нижнюю границу: ');
    Readln(x);
    Write('Введите верхнюю границу: ');
    Readln(y);
    if x > y then
      Writeln('Нижняя граница должна быть меньше верхней');
  until x <= y;
  minA := MAXINT;
  minB := MAXINT;
  Writeln('Массив A:');
  for i := 1 to n do
  begin
    a[i] := Random(y - x + 1) + x;
    if a[i] < minA then
      minA := a[i];
    if a[i] mod 2 = 0 then
    begin
      t := t + 1;
      b[t] := a[i];
      if b[t] < minB then
        minB := b[t];
    end;
    Write(a[i], #32);
  end;
  Writeln;
  Writeln('MIN = ', minA);
  if t = 0 then
    Writeln('Массив B пуст')
  else
  begin
    Writeln('Массив B:');
    for i := 1 to t do
      Write(b[i], #32);
    Writeln;
    Writeln('MIN = ', minB);
  end;
end.