Programozás Pascalban: Fájlkezelés - 8. rész, A feladat megoldása - 4