В одномерном массиве, состоящем из n частей, вычислить: 1)количество отрицательных

Const nx =20;
var D:array[1..nx] of integer; i,n,k,sum:integer;
begin
write('Введите число элементов n');
Readln(n);
for i:=1 to n do begin
D[i]:= random(100)-50;write(D[i]:4);
if (D[i]lt;0) and (i mod 2 = 0) then k:=k+1;
if (D[i] mod 2 =0) and (i mod 2 = 1) then sum:= sum + D[i];
if (D[i]lt;0) then D[i]:= D[i] * D[i];end;writeln;writeln(k);
writeln(sum);
for i:=1 to n do
write(D[i]:8);end.