кодирование/декодирование в файле(готовый код) чего не хватает?

Ребят, ситуация такая.. В текстовом документе list мы пишем всё что угодно, т.е сколько символов столько и байт. файл cod кодирует, а decod декодирует этот файл, т.е в декодированный файл должен содержать ту же информацию что и в list и такое же число байт. Пример: пишем в list слово "приветик" - получается 8 байт.. при срабатывании программы в файле decod тоже написано "приветик" но весит он уже 14 байт..а должен тоже весить 8 байт.. в чем проблема?


program exe1;
var
f, f2, f3: file of byte;
sum, s: byte;
i: longint;
a: array [1..7] of byte;

begin
assign(f, 'D:\1\list.txt');
assign(f2, 'D:\1\cod.txt');
assign(f3, 'D:\1\decod.txt');
reset(f);
rewrite(f2);
rewrite(f3);
while not eof(f) do
begin
for i := 1 to 7 do
if not eof(f) then
read(f, a[i])
else
a[i] := 0;
sum := 0;
for i := 1 to 7 do
begin
s := a[i] and 128;
a[i] := a[i] and 127;
s := s shr 7;
sum := sum shl 1;
sum := sum or s;
write(f2, a[i]);
end;
write(f2, sum);
end;

reset(f2);
while not eof(f2) do
begin
for i := 1 to 7 do
if not eof(f2) then
read(f2, a[i])
else
a[i] := 0;
if not eof(f2) then
read(f2, sum);
for i := 7 downto 1 do
begin
s := sum and 1;
sum := sum shr 1;
s := s shl 7;
a[i] := a[i] or s;
end;
for i := 1 to 7 do
write(f3, a[i]);
end;
end.

Добавлено через 1 минуту
Забыл добавить, что пишем код для 7 бит..

0