Курсовая работа: Delphi. Немного относительно методов упаковки данных

LengthBiteChain : byte; { в массив , очередь и дерево }

BiteChain : word;

CounterEnter : word;

Key : boolean;

Index : byte;

end;

TCodeTable = array [0..255] of PCodElement;

Var CurPoint,HelpPoint,

LeftRange,RightRange : PCodElement;

CodeTable : TCodeTable;

Root : PCodElement;

InputF, OutputF, InterF : file;

TimeUnPakFile : longint;

AttrUnPakFile : word;

NumRead, NumWritten: Word;

InBuf : array[0..10239] of byte;

OutBuf : array[0..10239] of byte;

BiteChain : word;

CRC,

CounterBite : byte;

OutCounter : word;

InCounter : word;

OutWord : word;

St : string;

LengthOutFile, LengthArcFile : longint;

Create : boolean;

NormalWork : boolean;

ErrorByte : byte;

DeleteFile : boolean;