Удаление максимального элемента в списке

Program Pr;
Type
   TElem=integer;
   TList=^TNode;
   TNode=record
   Info:TElem;
   Next:TList;
End;
Var
  S,M:TList;
  x:TElem;
  i,n:integer;
  Max:TElem;
Procedure BList_Init(Var L:TList);
Begin
    L:=nil;
End;
Procedure BList_ADDLast (var E:TElem; L:TList);
  Var
    N:TList;
    P:TList;
  Begin
    new(N);
    N^.Info:=E;
    N^.Next:=nil;
    If L=nil then L:=N
      else
        Begin
          P:=M;
          while P^.Next<>nil do
            P:=P^.Next;
            P^.Next:=N;
            End;
End;
 Function BList_DelElem1(Var L:Tlist;E:Telem):boolean;
  Var
  N:Tlist;
  P:Tlist;
  found:boolean;
Begin
  found:=false;
  IF L<>nil then
  IF L^.Info=E then
Begin
  found:=true;
  N:=L;
  L:=L^.Next;
  dispose(N);
End
else
Begin
  P:=L;
  while not found and(P^.Next<>nil) do
  IF P^.Next^.Info=E
                   then found:=true
                   else P:=P^.Next;
  IF found then
Begin
  N:=P^.Next;
  P^.Next:=N^.Next;
  dispose(N);
End;
End;
Blist_DelElem1:=found
End;
  Procedure BList_Print(L:TList);
  Begin
    write('<');
    while L<>nil do
      Begin
        write(L^.Info);
        IF L^.Next<>nil
          then write(',');
          L:=L^.Next;
      End;
    writeln('>');
  End;
Begin
  Writeln('Vvedite kol elementov spiska');
  Readln(n);
BList_Init(M);
  For i:=1 to n do
  Begin
    Writeln('Vvedite element spiska');
    Readln(x);
    BList_ADDLast(x,M);
    End;
  Max:=M^.Info;
S:=M;
while S^.Next<>nil do
Begin
  If S^.Info > max then max:=S^.Info;
  S:=S^.Next;
End;
BList_DelElem1(M,max);
BList_Print(M);
End.