Rename unit3.pas to unit3_1.pas and modify

New unit3_1.pas with 2 methods.