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

else

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

begin

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

for i: =30 to 61 do

begin

if word [i] =conW then

begin

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

Delete (conR,1,10);

break;

end;

end;

end

else

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

begin

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

for i: =62 to 125 do

begin

if word [i] =conW then

begin

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

Delete (conR,1,12);

break;

end;

end;

end

else