Está permitido definir un type del tipo array arriba del todo del archivo? Sin él me da error de Illegal qualifier invocando un procedimiento auxiliar que definí para sonAnagramas.
También si está correcto al compilar que salgan los siguientes mensajes:
tarea1.pas(8,16) Warning: Comparison might be always true due to range of constant and expression
tarea1.pas(8,16) Warning: unreachable code
tarea1.pas(8,16) Warning: Comparison might be always true due to range of constant and expression
tarea1.pas(8,16) Warning: unreachable code
La ejecución de pruebas manuales y mediante el comando de python me dieron todas bien.