{**************************************************************

Find file length

Returns the length of the file given in bytes.

***************************************************************}

program lengthf(f, output);

type byte = 0..255;
     bytefile = file of byte;

var f: bytefile;

begin

   reset(f);
   writeln(length(f):1, ' bytes in file')

end.