funcion igual(A,B: in character) return boolean is
type alfabeto is array(1..26) of character;
mayusculas: alfabeto:=("abcdefghijklmnopqrstuvwxyz"); -- Es mas rápido escribirlo así.
minusculas: alfabeto:=("ABCDEFGHIJKLMNOPQRSTUVWXYZ");
I:integer:=1;
num_letra1,num_letra2:integer;
begin
while I<26 loop
if A=mayusculas(I) or A=minusculas(I) then
num_letra1:=I;
end if;
if B=mayusculas(I) or A=minusculas(I) then
num_letra2:=I;
end if;
I:=I+1;
end while;
if num_letra1 = num_letra_2 then
return true;
else
return false;
end if;
end igual;