I shave

[Maynard]

Code:

     pac8        = packed array [1..8] of char;
     pac80       = packed array [1..80] of char;