Be concise.
Be useful.
All contributions dictatorially edited by webmasters to match personal tastes.
Please do not paste any copyright violating material.
Please try to avoid dependencies to third-party libraries and frameworks.
const
x: array[boolean] of string = ('file','files');
...
s := format('%d %s',[a, x[Abs(a)>1]]));
x = ('no files', '1 file', f'{a:,} files')
s = x[bool(a)] if a < 2 else x[2]
s = f'{a:,} {('file', 'files')[a != 1]}'
s = "#{a} #{x}#{a == 1 ? "" : "s"}"