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

[Wi1D]

Почему он зацикливаеться???есть ошибка?

{-----------------------------------------------}
procedure Del_maxmin(var list2:Pointer);
   var tek_el2,next_el2:pMyNumber;
       tmp_max,tmp_min,i:integer;
      begin
	tek_el2:=list2;
         if tek_el2=nil then writeln('‚ д*©«Ґ *ЁзҐЈ® *Ґ Ўл«®!‹Ёбв Їгбв®©!')
          else
           begin
           tmp_max:=tek_el2^.Data;
           tmp_min:=tek_el2^.Data;
          while tek_el2<>nil do
           begin
            if tmp_max<tek_el2^.Data then tmp_max:=tek_el2^.Data;
            if tek_el2^.Data<tmp_min then tmp_min:=tek_el2^.Data;
            tek_el2:=tek_el2^.Next;
           end;
           writeln(tmp_max);
           writeln(tmp_min);
           end;
        tek_el2:=list2;
                 for i:=1 to 100 do
			begin
                           if tek_el2^.Data=tmp_max or tek_el2^.Data=tmp_min {тут зацикливание}then begin
                           next_el2:=tek_el2^.Next;
			   dispose(tek_el2);
			   tek_el2:=next_el2;
                           end;
			end;
       {tek_el2:=tek_el2^.Next; }
		list2:=nil;
       end;

Задание было в том чтобы в списке удалить максимальные и минимальные числа