Курсовая работа: Разработка программы сжатия и восстановления файлов с помощью фиксированного блочного кода постоянного смещения

end;

end

else

if (conR [2] ='0') and (conR [3] ='1') then

begin

conW: =copy (conR,1,6);

for i: =6 to 13 do

begin

if word [i] =conW then

begin

BlockWrite (f3, inf [i],1);

Delete (conR,1,6);

break;

end;

end;

end

else

if (conR [3] ='0') and (conR [4] ='1') then

begin

conW: =copy (conR,1,8);

for i: =14 to 29 do

begin

if word [i] =conW then

begin

BlockWrite (f3, inf [i],1);

Delete (conR,1,8);

break;

end;

end;