Найти минимальное значение среди четных, не кратных трем элементов массива

const
  n = 20;
 
type
  mas = array[1..n] of integer;
 
var
  a, b: mas;
  i, j: integer;
  min: integer;
 
procedure Print_mas(a: mas);
var
  i: integer;
begin
  for i := 1 to n do 
  begin
    write(a[i], ' ');
  end; writeln;
end;
 
procedure Random_mas(var a: mas);
var
  i: integer;
begin
  for I := 1 to n do
    a[i] := random(1001);
end;
 
procedure Minim(var b: mas);
var
  i: integer;
begin
  min := -maxint;
  j := 0;
  for i := 1 to n do
    if (a[i] < -min) and (a[i] mod 2 = 0) and (a[i] mod 3 <> 0)  then 
    begin
      j := j + 1; 
      min := -a[i]; 
      b[j] := a[i]; end; 
end;
 
begin//main program
  writeln('Исходный массив из элементов [1..1000]');
  random_mas(a);
  print_mas(a);
  minim(b);
  min := -maxint;
  writeln('Элементы из первого массива,удовлетворяющие правилу: четные и не делятся на 3:');
  for i := 1 to j do 
    write(b[i], ' '); writeln; writeln('Минимальный элемент который удовлетворяет правилу четные и не делятся на 3:');
  for i := 1 to j do
    if b[i] < -min then min := b[i];
  writeln(b[i]);
  
  
end.