Pascal/Turbo Pascal - Ayuda urgente por favor en Pascal

Alguien que me ayude por favor, tengo un trabajo urgente del colegio, en el cual ocupo hacer un programa en Pascal, sobre un inventario, pero tiene que contener de requisito los ciclos If else, Repet-Until, For y con el Ciclo While, tiene q contenerlos obligatoriamente, y es casi un proyecto final y no tengo ni la menor idea de como hacerlo, porfis, alguien ayudeme, tengo una semana de tiempo
mil gracias
que Dios los bendiga sin duda!!!!

¿Qué llevas hecho?

De echo no llevo nada, el profesor me lo dio hoy, y no m dio ninguna explicacion en absoluto, y no tengo ni la minima idea de como hacerlo, crees q me puedas ayudar???
Y es que tambien tengo otro pequeño problema, no controlo muy bien los ciclos que me pidio de requisitos

Sin duda utilizaras todo lo que te pidio el maestro y mucho mas, de casualidad no menciono, registros y archivos?