El comentario anterior mío fue erróneo, con este código debería funcionar correctamente :), en la segunda condicional también deberías convertir la variable 'alfabeto' en Minusculas.

        Funcion retorno <- Ascii(caracter)
            Definir codigoAscii, retorno, i Como Enteros;
            codigoAscii <- 0; //
            // PSeInt no maneja ASCII directamente, así que necesitamos "engañarlo" 
            // comparando con una cadena que contenga el alfabeto
            Definir alfabeto Como Cadena;
            alfabeto <- "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
            
            // Buscar el carácter en mayúsculas dentro del alfabeto
            Para i <- 0 Hasta Longitud(alfabeto) Hacer
                Si Subcadena(alfabeto, i, i) = caracter Entonces
                    codigoAscii <- i + 65; // 65 es el código ASCII de 'A'
                    Retorno <- codigoAscii;
                FinSi
            FinPara
            
        // Si no se encontró en mayúsculas, buscar en minúsculas
        Si codigoAscii = 0 Entonces // Significa que no se encontró en mayúsculas
            Para i <- 0 Hasta Longitud(alfabeto) Hacer
                Si Subcadena(Minusculas(alfabeto), i, i) = caracter Entonces
                    codigoAscii <- i + 97; // 97 es el código ASCII de 'a'
                    Retorno <- codigoAscii;
                FinSi
            FinPara
        FinSi
        
        // Si aún no se encontró, es un carácter especial o no alfabético
        Si codigoAscii = 0 Entonces
            Escribir "El carácter ingresado no es una letra.";
        FinSi
    FinFuncion
    
    // Ejemplo de uso
    Proceso Principal
        Definir caracter Como Caracter;
        Definir valorAscii Como Entero;
        
        Escribir "Ingrese un carácter: ";
        Leer caracter;
        
        valorAscii <- Ascii(caracter);
        
        Si valorAscii <> 0 Entonces
            Escribir "El código ASCII de " , caracter , " es: ", valorAscii;
        SiNo
            Escribir "El carácter no es una letra";
        FinSi
FinProceso