Добавление и удаление объекта

 type TCompany=class
              public
               FName:string;
               FL:TList;
               constructor Create (file_name:string);
               destructor Destroy; override;
 
               procedure Append; // Вот его прототип
               procedure Print;
             end;
 
implementation
uses Un_class;
 
procedure TCompany.Append; // Вот реализация
var
   ConIn : Text;
begin
   Assign(ConIn, '');
   Reset(ConIn);
   Add_Order(FL, TAbonent.Create(ConIn));
   Close(ConIn);
end;

  else
  begin
    Company:=TCompany.Create(file_name);
    Company.Print; // Напечатается список из файла
    Company.Append; // Потом программа будет ждать, пока ты введешь в том же порядке данные о новом объекте
    Company.Print; // И будет напечатан новый список
    Company.Destroy
  end;

procedure Del_Order (var L:TList; m:TInfo);
  var p,q:TList;
  begin
    p:=L;
    while (p^.next<>nil) and (p^.next^.info.compare(p^.info,q)) do
    p:=q^.next;
    q^.next:=p^.next;
    Dispose(p);
  end;

  procedure Del_Order (var L:TList; FIO : string);
  var p, q : TList;
  begin
     P := L;
     while (p^.next <> nil) and (P^.next^.info.FFIO <> FIO) do p := p^.next;
     if p^.next <> nil then
     begin
        q := p^.next;
        p^.next := q^.next;
        p^.info.Free;
        Dispose(P);
     end;
  end;

type 
   TAbonent=class
      // ...
      function compare(q:string):Boolean;
   end;
 
  function TAbonent.Compare;
  begin
    result := Fnumberphone=q;
  end;

  procedure TCompany.Del_obj;
  var // t:TextFile;
       m:string;
  begin
    // Assign(t, '');
    // Reset(t);
     Writeln('Введите номер телефона абонента,которого нужно удалить');
    Readln(m);
    Del_Order(FL,m);
    // TAbonent.Create(t);
    // Close(t);
  end;

  procedure Del_Order(var L:TList;m:string);
  var p, q : TList;
      // s:string;
  begin
     P := L;
 
     // У тебя было compare(s), да и вообще вызов поменялся
     while (p^.next <> nil) and (not P^.next^.info.compare(m)) do
        p := p^.next;
 
     if p^.next <> nil then
     begin
        q := p^.next;
        p^.next := q^.next;
        q^.info.Free; // Здесь Q, а не P, это я ошибся в предыдущем посте.
        Dispose(P);
     end;
  end;