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

[Zigfried]

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

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

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

[volvo]

Что-то ты перемудрил в процедуре Poisk. Смотри:

procedure poisk(m: TList);
var
  q: TList;
  maxOp: string[3];
  k, max: integer;
begin
  q := m^.next; // первый элемент - пропускаем, он заглавный...
  max := 0;
  while q <> nil do // а теперь идем по списку...
  begin
    k := 1; // считать начинаем с 1, одно-то вхождение все равно есть.

    // Здесь внимательно: сначала проверим, существует ли q, потом - 
    // существует ли q^.next, и только потом сравниваем текущий и следующий
    // элементы списка...
    while (q <> nil) and (q^.next <> nil) and
          (copy(q^.page.tel, 1, 3) = copy(q^.next^.page.tel, 1, 3)) do // сравнить первые 3 символа
    begin
      inc(k);
      q := q^.next;
    end;

    if k > max then // тут у тебя все было правильно, только заполни maxop без цикла
    begin
      max := k;
      maxop := copy(q^.page.tel, 1, 3);
    end;

    // а вот это - ключевой момент: продвигаемся дальше - только если k = 1,
    // то есть, только если внутри предыдущего цикла не было увеличения q...
    if k = 1 then
      q := q^.next;
  end;

  writeln('max operator: ', maxop);
  writeln('vstrechaetsa: ', max, ' raz(a)');

end;

Вот это только что прогнал на FPC - не вылетает. Учти, я гонял только до закрытия файла, дальше - тебе еще список удалять надо, ты этого так и не сделал... И не надо q^ удалять в Poisk-е. Ты ж место под него ТАМ не выделял, зачем удаляешь?