Найти компанию(по заданным условиям)ООП

[Вероника92]

По заданной атс найти и напечатать компанию,в которой больше всего абонентов принадлежащих этой атс. Пыталась сделать сама,но выдает ошибку в runtime.....полагаю ошибка в Un_list1 в процедуре searchcompany

[Stilet]

У тебя вот тут:

  function searchcompany (var L:TListK;ats:string):TListK; //поиск компании c максимальным числом абонентов по заданной атс
  var p,k:TListK;
      max:Integer;
  begin
    p:=L;
    max:=p^.company.numberabonent(ats);

company пустая.

P.S. Как по мне код где смешаны указатели и объекты не годится даже на контрольную. Я бы его переписал, избавившись от указателей.

[Вероника92]

как это исправить?я что-то запуталась

[Stilet]

Честно пытался твой код понять. Не удалось.
ИМХО с нуля все переписать.

[Вероника92]

если не принимать особо мой код во внимание,то как должна выглядеть функция поиска компании c максимальным числом абонентов по заданной атс?......именно до этого этапа все отлично работало

[Stilet]

Работало оно у тебя случайно, только благодаря отсутствию проверки компании.
Если я правильно понял ты не задаешь первому элементу списка никакой компании:

procedure InitLL (var L:TListK);
begin
new(L);
L^.next:=nil
end;

Зато в коде ты у этого элемента обязательно пытаешся выяснить компанию.

function searchcompany (var L:TListK;ats:string):TListK; //поиск компании c максимальным числом абонентов по заданной атс
var p,k:TListK;
max:Integer;
begin
p:=L;
max:=p^.company.numberabonent(ats);

Естесственно вылезает ошибка.

Максимум чем могу помочь:

  function searchcompany (var L:TListK;ats:string):TListK; //поиск компании c максимальным числом абонентов по заданной атс
  var p,k:TListK;
      max:Integer;
  begin
    p:=L^.next; k:=p;
    max:=p^.company.numberabonent(ats);
    while (p^.next <> nil)  do  begin
    if max<p^.Company.numberabonent(ats) then
                                               begin
                                                 max:=p^.Company.numberabonent(ats);
                                                 k:=p
                                               end;
    p:= p^.next;
    end;
    result:=k
  end;

Однако мое мнение - код фтопку. Больше багов чем КПД от такого симбиоза указателей. Править его трудно.