[Underketzer]

Здравствуйте, уважаемые.
Если есть время и возможность, помогите мне, пожалуйста.
Делал программу для курсового по теме LZW архивирования. Написал программу, в принципе все работает, однако есть две проблемы:
1) Последний символ не кодируется при сжатии
2) при распаковке строки "съезжают" со своих мест.
Проэкт в аттаче, помогите разобраться. Очень прошу
з.ы. комменты в проэкте есть

з.з.ы. да! чуть не забыл. при архивировании в этом куске кода:
if i=60 then begin flag:=true; add:=true; end; //пока не сравним со всеми элементами словаря
вместо 60 должно стоять конечно-же 8194