function  __packfil(str: string; size: byte): string;

   Display as much info as possible in size spaces. At least 15 positions.
   ("C:\FILENAME.EXT")
   Example:
     writeln(__packfil('C:\PROG\PROJ\COMM\FILE1\COMMPROG.PAS', 20));
     writes: "C:FILE1\COMMPROG.PAS"