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

[Zigfried]

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

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

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

[Zigfried]

да

[Lapp]

смотри, вот тебе ТВОЯ примерная структура записи, вкупе с элементом списка..

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;

Читай файл построчно в цикле до EoF(f) и раскладывай по полям записи (как в той ссылке). При этом не забывай выделять память под каждый новый элемент.
Попробуй это реализовать и покажи, что получается.