Pascal/Turbo Pascal - Programa en Pascal

Hola
Actualmente, estoy cursando una materia llamada PROGRAMACION I, estamos viendo estructuras de repetición...hasta ahora, hemos visto while <sentencia> do..., if & case, if anidados...necesito entregar un programa que contenga 100 líneas de instrucciones...desde el comando write...read...if & else, case & of, incluyendo el while & do...sería posible que me ayudaran a realizar un programa relacionado a una farmacia, o taller mecánico o una biblioteca.
gracias de antemano...Patricia

el ejercicio ke necesito es de como hacer un inserta ordenado en registros ,,,,, asi como hacerle bajas,, cambios,, y consultas... el problema es ke me marca demasiados errores alcodificar,,,, y es ke es con subalgoritmos,, y no se como enlasarlos