Пользователь вводит границы диапазона прибыли за последний год.Из файла данных последовательно считываються прибыли различных ресторанов за последний год, пока не встретиться отрицательное число.
Определить количество фирм, прибыль которых находиться в заданном диапазоне, если таких нет-выдавать сообщение, если есть, то прибыли этих ресторанов записать в новый файл.

A-Файл данных N-Количество фирм P-Прибыль

http://mypascal.ru/blog/zapis_v_fajl_i_vyvod_iz_fajla_pascal/2013-06-08-6 посмотри , там все разобрано