filewriter2 working?

%Luke Bas assignment 7
var file : int
var salesperson, company, month, salespersonword : string
var sales, total, largest, smallest : real
largest := 0
smallest := 3000
total := 0
open : file, "staff.txt", get
get : file, month : *
get : file, company : *
get : file, salespersonword
put " " : 20, month
put " " : 20, company
put " "
put " ", salespersonword

loop
    exit when eof (file)
    get : file, salesperson : *
    get : file, sales
    put salesperson : 20, sales : 30
    total := total + sales
    if sales >= largest then
        largest := sales
    end if
    if sales <= smallest then
        smallest := sales
    end if
end loop
put " "
put "Total sold :", total : 38
put "Average sold:" : 44, total / 7 : 2 : 2
put " "
put "The highest amount sold was", " ", largest, " ", "by Happy"
put "The smallest amount sold was", " ", smallest, " ", "by Grumpy"
close (file)
open : file, "highlow.txt", put
put : file, company
put : file, "Happy"
put : file, largest
put : file, "Grumpy"
put : file, smallest
close : (file)