Rarukki0918

Estou fazendo um programa no pascalzim que utiliza vetores e ele nao esta fazendo a soma dos valores pedidos na questao ,ele esta exibindo o primeiro valor digitado,a questao esta logo abaixo: Faça um programa que leia um vetor de 10 elementos numéricos, calcule e mostre a quantidade de números negativos e a soma dos números positivos desse vetor. Program dez_numeros_negativos_positivos; uses crt; VAR VETOR: array[1..10] of integer; CONT,N,P,CAIXA,SOMA:INTEGER; Begin FOR cont:=1 to 10 do begin textcolor(white); write('Digite o numero:'); READLN(VETOR[CONT]); END; FOR CONT:=1 TO 10 DO BEGIN IF VETOR[CONT]<0then BEGIN N:=N+1; END; END; FOR CONT:=1 TO 10 DO BEGIN IF VETOR[CONT]>0 then BEGIN P:=VETOR[CONT]+VETOR[CONT]; CAIXA:=CAIXA+P; SOMA:=SOMA+CAIXA; END; FOR CONT:=10 TO 10 DO BEGIN WRITELN('Quantidade de numeros negativos:'); WRITELN(N); WRITELN('Soma de todos os numeros positivos:'); WRITELN(SOMA); END; END; READKEY; END.