(define (delete! key value table)
  (let ((record (associ key (cdr table))))
    (if record
        (cond ((equal? record (car table)) (cdr table))
              ((equal? record (cadr table)) (cons (car table) (cddr table)))
              (else (cons (car table) (delete! key value (cdr table)))))
        "Not present!")))