Ejercicio PSeInt: Mostrar todas las veces que se repite el numero mas grande

Proceso Valores_mayores
    Dimension A[100];
    Escribir "Ingrese los valores";
   
    // El ingreso de valores se detiene cuando se ingresa un 0
    j<-0;
    Repetir
        Leer b;
        j<-j+1;
        A[j]<-b;
    Hasta Que b = 0
    cont<-j-1;
   
    //Primero obtengo cual es el valor mas grande
    max<-A[1];
    Para i<-2 Hasta cont Con Paso 1 Hacer
        Si A[i]>=max Entonces
            max<-A[i];
        Fin Si
    Fin Para
   
    //Ahora muestro en pantalla todas las veces que se guardó el valor más grande.
   
    Escribir "Todas las veces que está el valor mas grande:";
    Para i<-1 Hasta cont Con Paso 1 Hacer
        Si A[i]=max Entonces
            Escribir "Valor ingresado numero: ", i," es: ",max;
        Fin Si
    Fin Para
FinProceso