devops Pascalzim-Programa nao esta fazendo soma

[Rarukki0918 0]

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.