Foro de consultas de la semana 5

Buenas,
la idea del ejercicio es hacerlo con la letra misma, es decir que si se ingresa una letra minuscula, se busca esa letra minuscula. En caso de que te ingresen una letra minuscula y quieras buscar la misma tambien en mayuscula (o viceversa) podes buscar ambas! Aqui hay un codigo que te da una letra mayuscula dada la minuscula (se puede hacer lo mismo en el otro sentido):
program getMayus;
var
carminus, carmayus: char;
dif: integer;
begin
write('escribir caracter minuscula: ');
readln(carminus);
dif := ord('Z') - ord('z');
carmayus := chr(ord(carminus) + dif);
writeln('el caracter en mayuscula es: ', carmayus);
end.

En caso de querer hacerlo de todas las formas, es decir si te pasan una mayuscula o una minuscula, primero deberias ver si la letra que te dan es mayuscula o minuscula. Esto lo haces: si el ord(caracterqueingresan) es mayor que ord('A') entonces es mayuscula, en el otro caso seria minuscula. Ahi calculas cuanto le tenes que sumar al ord(caracterqueingresan) para convertirlo a mayuscula o minuscula y buscar ambas letras.

Ojo que el ejercicio es del practico 6, no el 5.
Espero haya quedado claro, cualquier cosa volve a preguntar!
Saludos