Script to report cell delays

Write a TCL script to report the  Cell delay

set paths_rpt   [report_timing -collection -max_paths 10000 -max_slack 5 -path_group r2r]

foreach_in_collection timing_path $paths_rpt {
                  foreach_in_collection tp [get_property $timing_path timing_points] {
                        set delay [get_property $tp delay]
                        if {$delay > 0.1} {
                        Puts "[get_property $tp hierarchical_name] [get_property $tp delay]"
            }
       }
  }