若静态查找表的类型定义如下： TYPE rectype=RECORD key：keytype； ……； END； ordlisttp=ARRAY[1..n

] OF rectype； 请完成以下二分查找的算法： FUNC binsrch（r：ordlisttp；k：keytype）：integer； BEGIN low:=1；hig:=n；suc:=false； WHILE ___(1)___ AND NOT（suc）DO [ mid：=__(2)____； CASE k＞r[mid].key：low:=mid+1； k=r[mid].key：suc:=true； k ＜r[mid].key：hig:=mid-1 end;] if suc then __(3)__ else __(4)__＞