type
  list=^node;
  node=record
        elem: real;
        next: list;
       end;

procedure deleteEnd(L: list);
var p,q: list;
  begin
    if(L<>nil) then
      begin
        if(L=nil) then
          begin
            dispose(L);
            L:=nil;
          end
        else
          begin
            p:=L;
            q:=p^.next;
            while(q^.next<>nil) do
              begin
                p:=q;
                q:=q^.next;
              end;
            dispose(q);
            p^.next:=nil;
          end;
      end;
  end;