Programozás Pascalban: Fájlkezelés - 2. rész, Fájlkészítő eljárás