const 
  cName =  'Name' ;procedure GetName ;
var
  Name:string ;
begin
  ...
  cName 操作 ;
end;procedure main
begin
 GetName ;
end;
---------程序1-----------
const 
  cName =  'Name' ;procedure GetName(sName:string);
var
  Name:string ;
begin
   ...
  sName 操作 ;
end;procedure main
begin
 GetName(cName) ;
end;
---------程序2-----------
请问各位会选择程序1还是程序2,理由?