//โปรแกรมอ่านข้อมูลพิมพ์แบบสรุปว่าแต่ละตำแหน่ง มีพนักงานรับเงินเดือนสูงสุดเท่าใด
use empl
ei = array(reccount())
en = array(reccount())
n = 1
for i = 1 to reccount()
   if ascan(ei,empldept) = 0
   ei[n] = empldept
   en[n] = emplsal
   n++
   else
   for k = 1 to n - 1
   if (ei[k] = empldept)
   if en[k] < emplsal
   en[k] = emplsal
   endif
   endif
   next
   endif
   skip
next
for i = 1 to n - 1
   @ i,10 say ei[i]
   @ i,40 say en[i]
next