//โปรแกรมอ่านข้อมูลมาพิมพ์ หาชื่อ และเงินเดือนสูงสุดของพนักงาน
use empl
n = 0
while !eof()
if emplsal > n
   n = emplsal
endif
skip
end
locate for emplsal = n
   ? empl,emplname,emplsal