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

else

if (conR [6] ='0') and (conR [7] ='1') then

begin

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

for i: =126 to 253 do

begin

if word [i] =conW then

begin

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

Delete (conR,1,14);

Break;

end;

end;

end

else

if (conR [7] ='0') and (conR [8] ='1') then

begin

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

for i: =254 to 255 do

begin

if word [i] =conW then

begin

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

Delete (conR,1,16);

Break;

end;

end;

end;

if (EOF (f2) = true) and (length (conR) >1) then