ownintegerarray fred(0:9)
endoffile