Помогите пожалуйста!
Вообщем, нужно создать телефонный справочник, т.е. файл из записей с полями: ФИО, адрес (запись из 3 полей :улица. номер дома, квартиры),
номер телефона.
Задание: найти номер АТС(первые 2 цифры номера телефона), имеющей наибольшее число абонентов.
У меня вопрос: я хотел сделать функцию, которая считала бы сколько раз встречается какое-нибудь АТС, а потом процедуру которая считает какое именно Атс встречается больше раз. Но у меня не получается с функцией.
Как можно посчитать, например, кол-во АТС первой записи?
Или вообще лучше сделать что-то другое, без функции?
program telepnone;
const m=1;
type adress = record
street: string[20]
house: byte
flat: byte
end;
type Telephone=RECORD
FIO: string[40]
adr: array[1..m] of adress
Tel_n: string[8]
end;
type Tel=file of Telephone;
var f: Tel;
procedure in_rec(var f: Tel); {¢¢®¤ ä ©« Telephone}
var t:student;
c:char;
i:byte;
begin
repeat
with t do
begin
write('FIO: ');
readln(fio);
write('Adress:');
for i:=1 to m do
begin
write('Street:');
readln(adr[i].street);
write('House:');
readln(adr[i].house);
write('Flat:');
readln(adr[i].flat);
end;
write('Telephone: ');
readln(Tel_n);
end;
writeln('¯à®¤®«¦e¬? (y/n)');
readln©;
until c='n';
end;
Вообщем тут полный бред! Помогите пожалуйста!