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

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.