TagCharRec = Record
ident : array [1..03] of char;
title : array [1..30] of char;
artist : array [1..30] of char;
album : array [1..30] of char;
year : array [1..04] of char;
comment : array [1..30] of char;
genre : byte;
End;
всего : 128 bytes
Причём ident='TAG'. Если это не так, то по-ходу дела нужно
дописывать эту структуру, а не изменять.
genre - номер жанра. $FF - не указан.
