Надо добавить действительную функцию создания файла, существующая версия лишь дописывает информацию в существующий.
Добавить проверку на отсутствие требуемого файла.
Мне это уже делать лень, основной функционал есть,
лекция по работе с файлами в помощь.
Все остальное работает. В директории лежит тестовый a1.txt
В комментариях каждую строчку разжевывать не буду.
Создавалось, компилировалось, тестировалось в Lazarus.
