СРОЧНО!!!!!!!!!!!!!!!!!!!ABC Pascal!!!!!! Дан одномерный массив А. Отсортировать массив по убыванию, найти количество отрицательных элементов массива, стоящих на четных местах

Program n2;const n=10;var a: array [1..n] of integer;i,k,j,temp: integer;beginrandomize;writeln('исходный массив');k:=0;for i:=1 to n do begina[i]:=random(201)-100;write(a[i],' ');end;writeln;writeln('полученный массив: ');for i:=1 to n dofor j:=i to n doif a[j]>a[i] thenbegintemp:=a[i];a[i]:=a[j];a[j]:=tempend;for i:=1 to n do begin write(a[i],' ');if (a[i]<0) and (i mod 2=0) then k:=k+1;end;writeln;write('кол-во отрицательных элементов на четных местах: ',k);end.