Цитата:
Сообщение от lenchik1
вот исправила вроде,но теперь вместо однофамильцев 0 выводит.может кто подскажет что исправить надо
|
Тут скорее всего ошибка связана с повторным определением одних и тех же файлов - как в начале тела программы, так и в процедуре Odnofam. Так делать нельзя. Уберите из списка параметров процедуры файл f2 (он уже определен, как глобальный) и из тела процедуры оператор Assign(f2...).