To get the last pair of a given list (assuming it is nonempty, as indicated), we can recursively call last-pair on successive cdrs of the list until the cdr is null:
(define (last-pair l) (if (null? (cdr l)) l (last-pair (cdr l))))