find_min_string.pas