Вот в этих 2-ух процедурах:
Procedure nov;
Var
j:integer;
a:integer;
Begin
Name_file;
assign(trains,name);
rewrite(trains);
write('Введите количество пунктов назначения: ');
readln(a);
for j:=1 to a do Vvod;
close(trains);
writeln;
end;
Procedure dobav;
Var
j:integer;
k:integer;
Begin
Name_file;
assign(trains,name);
{$I-}
reset(trains);
{$I+}
if ioresult=0 then
begin
seek(trains,FileSize(trains));
write('Введите количество записей: ');
readln(k);
for j:=1 to k do Vvod;
writeln('В новом фаиле ',FileSize(trains),' записей');
close(trains);
end
else writeln('Фаил '+name+' несуществует');
writeln;
end;
Вот весь исходник: molex.hotbox.ru/PROG.PAS