procedure torolelemet(var elso:mut;mit:Integer);
 var p,q:mut;
 begin
  p:=elso;
  while p^.szam=mit do
   begin
    torolelejerol(p);
   end;
  while p<>nil do 
   begin
    if p^.kov<>nil then
     if p^.kov^.szam=mit then 
      begin 
       q:=p^.kov;
       p^.kov:=p^.kov^.kov;
       dispose(q);
      end;
    p:=p^.kov;
   end;
 end;