Count records until EOF

Level 9: Files. A totaller over a file: Count <- 0, then Count <- Count + 1 on every READFILE until EOF.