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

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;

end;

end;

end;