Найти минимальный элемент вектора, находящийся между вторым чётным и предпоследним нечётным элементами

const m = 10;
 
type vector = array[1..m] of integer;
 
function mine(const x: vector): integer;
var i, k, e, o: integer;
begin
  e := 0;
  k := 0;
  while (k < 2) and (e < m) do
    begin
      inc(e);
      if not odd(x[e]) then inc(k)
    end;
  if k < 2
    then mine := 0
    else begin
      o := m + 1;
      k := 0;
      while (k < 2) and (o > 1) do
        begin
          dec(o);
          if odd(x[o]) then inc(k)
        end;
      if (k < 2) or (abs(o - e) < 2)
        then mine := 0
        else begin
          if o > e
            then begin
              k := o;
              o := e;
              e := k
            end;
          writeln('---' :o * 4, '---' :(e - o) * 4); //подчёркивание для наглядности, можно убрать
          k := o + 1;
          for i := o + 2 to e - 1 do if x[k] > x[i] then k := i;
          mine := k
        end
    end
end;
 
var s: vector;
    i: integer;
 
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to m do
    begin
      s[i] := -99 + random(199);
      write(s[i] :4)
    end;
  writeln;
  i := mine(s);
  if i > 0
    then writeln('Результат: S[', i, '] = ', s[i])
    else writeln('Искомого элемента нет');
  readln
end.