{$I-+} - это отключение проверки ошибок ввода/вывода.
Reset(f); - открываем файл (в данном случае для чтения).
if(IOResult <> 0) then ReWrite(f); - отлавливание ошибок: если с открытием файла произошли ошибки (например файла нет, или он используется другим процессом), то пере создаем файл...
ReWrite(f2); - создаем второй файл, в который будем записывать первые слова из каждой строчке.
|