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

[Zigfried]

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

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

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

[volvo]

1) у тебя список из памяти не удаляется - это достаточная ошибка?
2) в процедуре создания списка (чтения из файла, в смысле) лучше сделать цикл не до eof, а до seekeof:

   while not seekeof(x) do
   begin
     list_read(z);
     list_add(m,z)
   end:

, иначе пустые строки в конце будут мешать читать файл, будешь получать ошибки. А функция SeekEof их просто "не видит", поэтому здесь будет лучше использовать именно ее.
3) прочитали список - вывели его. Что ты творишь при поиске?

  while q<>nil do
  begin
    k:=1;
    while q^.Next^.Page.Tel=q^.Page.Tel  do // <--- Вот здесь !!!
    begin
      k:=k+1;
      q:=q^.Next
    end;

    if k>max then
    begin
      max:=k;
      for i:=1 to 3 do
      maxop[i]:=q^.page.tel[i]
    end;

    q:=q^.Next // <--- И здесь тоже !!!
  end;

А если в какой-то момент в первом цикле Q^.next = nil, а ты дальше обращаешься к Q^.Next^.Page? Вылет... А ниже по тексту? Как вообще можно изменять значение указателя, не убедившись, что он валидный? В твоем случае - он должен быть хотя бы не NIL...

Исправляй, дальше посмотрим...