типизированные файлы

[Joy1]

создать файл телефонный справочник. найдите номер АТС(первые две цифры номера телефона), имеющий наибольшее число абонентов.

[mss]

Это приказ ?

[Donim]

делай запись и вайл типа эта запись а все остальное есть в качестве примеров в учебниках, (кроме условия поиска =) )

[Начинающий програм]

У меня так получилось

program Project;
type
  Tel_book=record
             FIO:string[50];
             Nomer:string[10]
           end;
  mas=array[1..100]  of Tel_book;
  massiv=array[1..100] of integer;
  tfile=file of Tel_book;
var
  a:mas;
  ATC:massiv;
  i,j,n,kol,z,two,two2:integer;
  f:tfile;
  ftx:text;
begin
  assign(f,'ass');
  assign(ftx,'asstext');
  rewrite(f);
  write('Количество абонентов: ');
  readln(n);
  for i:=1 to n do
    begin
      write('Введите ФИО ',i,'-ого абонента: ');
      readln(a[i].FIO);
      write('Введите номер ',i,'-ого абонента: ');
      readln(a[i].Nomer);
      writeln;
      write(f,a[i])
    end;
  close(f);
  
  reset(f);
  rewrite(ftx);
  i:=1;
  while not eof(f) do
    begin
      read(f,a[i]);
      inc(i)
    end;

  kol:=0;
  z:=0;
  for i:=1 to n do
    begin
      for j:=i+1 to n+1 do
        begin
          two:=(ord(a[i].Nomer[1])-ord('0'))*10+(ord(a[i].Nomer[2])-ord('0'));
          two2:=(ord(a[j].Nomer[1])-ord('0'))*10+(ord(a[j].Nomer[2])-ord('0'));
          if two=two2 then
            kol:=kol+1
        end;
      if kol>=z then
        begin
          z:=kol;
          ATC[i]:=two;
          writeln(ftx,ATC[i])
        end;
      kol:=0
    end;
  close(f);
  close(ftx)
end.