Создать файл, содержащий фамилии рабочих и их среднемесячный заработок. Напечатать фамилии рабочих, имеющих наибольший заработок- QBasic(Бейсик)

CLS
OPEN "zavod.dat" FOR APPEND AS #1
TYPE p
    fio AS STRING * 50
    zar AS INTEGER
END TYPE
INPUT "vvedite kolichestvo rabochih", n
DIM pr(n) AS p
FOR i = 1 TO n
    INPUT "fio", fio(i)
    INPUT "zarobotok", pr, zar(i)
NEXT i