Dram, к сожалению, вы закрыли файл сразу после чтения из него первой строки, соответственно, при повторном обращении к файлу внутри цикла возникает ошибка о том, что файл не найден.
Вынесите команду close(f) за циклическую структуру, но перед последним end.