procedure bliSnoop(ABlist : TBlist);
    var
        i : integer;
    begin
        WriteLN('<===== SNOOPING LIST CONTENTS =====>');
        WriteLN;
        WriteLN('       List Stats');
        WriteLN('<=========================>');
        WriteLN('       Size: ', ABlist.Size);
        WriteLN('       Next Free Space: ', ABlist.NextFree);
        WriteLN;
        WriteLN('       Item Listing');
        WriteLN('<=========================>');

        for i := 1 to Ablist.NextFree - 1 do
          begin
            WriteLN;
            WriteLN('Item ---------> ',i);
            WriteLN('Name > ', aBList.Items[i].Name);
            WriteLN('Age > ', aBList.Items[i].Age);
          end
    end;