Leer 20 números e imprimir cuantos son positivos, cuantos negativos

Proceso saberNegativoPositivo
    Definir a,p,i ,limite,n como entero;
    Escribir "saber de 20 numeros cuantos hay positivos y negativo ";
    p=0;
    i=0;
    limite=20;
    Para a<-1 Hasta limite  Hacer
        Escribir "ingrese el numero";
        Leer n;
        Si n>0 Entonces
            p=p+1;
        Sino
            i=i+1;
        Fin Si
    Fin Para
    Escribir "hay numeros positivos: ", p," hay negativos: ", i;
FinProceso