There are many correct answers. Here is one. 
  (define (descending L)
    (cond
       ((null? L)        #t)
       ((null? (cdr L))  #t)
       ((> (car L) (cadr L)) (descending (cdr L)))
       (else             #f)
    )
  )