To start, you cannot just take the total bytes in the folder and divide it. You must work with the individual files. For each file you need to
ceil(bytes / 512) + 1 = blocks
The plus one is because each file has an extra block
at the end of the file there's a block containing all zeros
After that you add the blocks for all files and divide by the blocking factor, in this case 50
ceil(blocks / 50) = records
Some demo code
$ find file-5.16 -type f |
xargs du -B512 --apparent-size |
perl -MPOSIX -ane '$bk += $F[0]+1; END {print ceil $bk/50}'
109