Список с заглавным звеном, из текстового файла получить список из записей и по нему уже сделать задание

[Zigfried]

Структура записи:
-ФИО(40 знаков)
-Адрес:
-Улица(20 знаков)
-Номер дома
-Квартира
-Номер телефона(10 знаков)
-Баланс

Задание:Найти телефонную сеть(первые 3 цифры номера),имеющую наибольшее число абонентов.

Помогите пожалуйста с решением.Заранее спасибо.

P.S.данные в файле записаны в строку через пробел


вот примерная структура записи, вкупе с элементом списка..

type
tPage = record
FIO: string[30];
Ul: string[20];
Dom,Kv: integer;
Tel: string[10];
Bal: single
end;
tElem = record
Page: tPage;
Next: ^tElem
end;

var
First,Last: ^tElem;

[Zigfried]

помогите кто-нибудь пожалуйста)

[p51x]

В чем проблема? Прошли по списку и посчитали какие три первые цифры встречаются чаще.