Turbo Pascal. Массив. Найти минимальный четный элемент массива и т.д.

positive := true;
for i := 1 to ArraySize do
  positive := positive and (a[ i ] > 0);
if positive then
  begin
    minFind := false;
    for i := 1 to ArraySize do
      if not odd(a[ i ]) then
        if minFind then
          begin if min > a[ i ] then min := a[ i ]; end
        else
          begin min := a[ i ]; minFind := true; end;
    if minFind then
    WriteLn('минимальный чётный = ', min)
    else
      WriteLn('нет чётных элементов в массиве');
  end
else
  begin
    WriteLn('все нечётные элементы заменены на 0:');
    for i := 1 to ArraySize do
      begin
        if odd(a[ i ]) then
          a[ i ] := 0;
        Write(a[ i ], ' ');
      end;
    WriteLn;
  end;