Записи и типизированые файлы. Структура: ФИО, год установки телефона, номер телефона

uses crt;
const line='--------------------------------------------------------------------';
      shap='|     Фамилия, имя, отчество     | Год установки | Номер телефона  |';
      tg=2012;
 
type abonents = record
     fio:  string[30];
     god:  integer;
     tel:  string[9];
     end;
 
var f: file of abonents; v: byte;
 
procedure Vvod (var ff: file of abonents);
var i,n: integer; a: abonents;
begin
clrscr;
assign(ff,'C:\BD.dta');
rewrite(ff);
write('Количество абонентов: '); readln(n);
writeln('Внесите данные:');
for i:=1 to n do
    with a do
         begin
         write('Фамилия, имя, отчество: '); readln(fio);
         repeat
         write('Год установки: '); readln(god);
         until (god>1950) and (god<=tg);
         repeat
         write('Телефон (000-00-00): '); readln(tel);
         until (length(tel)=9) and ((tel[4]='-') and (tel[7]='-'));
         write(ff,a);
         end;
close (ff);
end;
 
procedure Vyvod (ff: file of abonents);
var a: abonents;
begin
clrscr;
assign(ff,'C:\BD.dta');
reset(ff);
writeln('Сведения об абонентах ');
writeln(line);
writeln(shap);
writeln(line);
while not (eof(ff)) do
      begin
      read(ff,a);
      with a do writeln('|',fio:30,'|':3,god:10,'|':6,tel:13,'|':5);
      writeln(line);
      end;
writeln(line);
close (ff);
end;
 
function Count (ff: file of abonents): integer;
var a: abonents; k: byte; gg: integer;
begin
k:=0;
assign(ff,'C:\BD.dta');
reset(ff);
write('Укажите год для подсчета установок в заданном году: '); readln(gg);
while not (eof(ff)) do
      begin
      read(ff,a);
      with a do if god=gg then inc(k);
      end;
Count:=k;
close (ff);
end;
 
 
begin
v:=1;
repeat
writeln('0-завершение работы');
writeln('1-ввод данных');
writeln('2-вывод данных');
writeln('3-подсчет установок в заданном году');
readln(v);
case v of
1: Vvod (f);
2: Vyvod (f);
3: writeln('Количество телефонов, установленных в заданном году: ',Count (f));
end;
until v=0;
end.

uses crt;
 
type abonents = record
     fio:  string[30];
     god:  integer;
     tel:  string[9];
     end;
 
var f: file of abonents;
    i,n,k,g: integer;
    a: abonents;
 
begin
assign(f,'C:\BD.dta');
rewrite(f);
write('Количество абонентов: '); readln(n);
writeln('Внесите данные:');
for i:=1 to n do
    with a do
         begin
         write('Фамилия, имя, отчество: '); readln(fio);
         write('Год установки: '); readln(god);
         write('Телефон: '); readln(tel);
         write(f,a);
         end;
reset(f);
write('Укажите год для подсчета установок в заданном году: ');
readln(g);
while not (eof(f)) do
      begin
      read(f,a);
      with a do if god=g then inc(k);
      end;
writeln('Количество телефонов, установленных в заданном году: ',k);
end.