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

program EvenPosInArr;
uses crt;
const N = 10000;
var i, k, max, min, y1, y2:integer;
    x:array [1..N] of integer;
begin
  clrscr;
  max:=-32768;
  min:=32767;
  y1:=0;
  y2:=0;
  writeln('Введите количество элементов массива');
  readln(k);
  clrscr;
  writeln('Введите массив');
  for i:=1 to k do
  begin 
    readln(x[i]);
    if (i mod 2=0) and (x[i]<0) then
    begin
      if x[i]>max then
      begin
        max:=x[i];
        inc(y1);
      end;
      if x[i]<min then
      begin
        min:=x[i];
        inc(y2);
      end;
    end;
  end;
  clrscr;
  if y1>0 then
    writeln('Максимальный отрицательный элемент, находящийся на чётной позиции это ', max)
  else
    writeln('На чётных позициях массива нет отрицательных элементов.');
  if y2>0 then
    writeln('Минимальный отрицательный элемент, находящийся на чётной позиции это ', min)
  else
    writeln('На чётных позициях массива нет отрицательных элементов.');
end.

program MaxMin;
var a:array[0..9] of integer; min, max, i:integer;
 
begin
    min:=-1; 
    max:=-1;
    
    randomize;
    for i:=0 to length(a) do
    begin
        a[i]:=random(10) - 5;
        write(a[i], ' ');
    end;
    writeln();
    
    for i:=0 to length(a) do
    begin
        if (a[i] < 0) and (i mod 2 = 0) then
        begin
            if a[i] > max then 
                max:=a[i]
            else if (a[i] < min) then 
                min:=a[i];
        end;
    end;
    
    writeln('Max element is ', max);
    writeln('Min element is ', min);
    writeln();
end.

const n=10;
var
  a: array [1..n] of Integer;
  i, mn, mx: Integer;
begin
  Randomize;
  for i:=1 to n do a[i]:=-99+Random(199);
  Write('A ='); for i:=1 to n do Write(' ',a[i]); WriteLn;
  i:=2; mn:=High(mn); mx:=Low(mn);
  while i<=n do begin
    if a[i]<0 then begin
      if mx<a[i] then mx:=a[i];
      if mn>a[i] then mn:=a[i];
    end;
    Inc(i,2);
  end;
  if mn>0 then WriteLn('нет отрицательных элементов')
  else WriteLn('Среди отрицательных min: ',mn,' max: ',mx);
end.

  i:=2; mn:=MaxInt; mx:=-MaxInt-1;

 Inc(I, 2);

begin WriteLn(-MaxInt-1) end.

 min:=32767