p := list;
     while p <> nil do
          begin
          if key = p^.k then found( p^ );
          p := p^.next
          end;