Дан линейный массив. нужно найти сумму минимального и максимального элемента массива, а также кол-во отрицательных элементов, стоящих на чётных местах, и вывести массив вычеркнув все нечетные значения.

Var a: array [1..1000] of integer; n, i, max, min, amount:integer;
begin
     read(n);
     for i := 1 to n do
         read(a[i]);
     max := a[1];
     min := a[1];
     amount := 0;
     for i := 1 to n do
     begin
          if a[i] > max
          then
              max := a[i];
          if a[i] < min
          then
              min := a[i];
          if (i mod 2 = 0) and (a[i] < 0)
          then
              amount := amount + 1;
     end;
     writeln('Sum of min and max equals ',max + min);
     writeln('Amount of numbers below zero and on even places: ', amount);
     for i := 1 to n do
         if i mod 2 = 0
         then
             write(a[i], ' ');
end.