Курсовая работа: Методы сжатия цифровой информации Метод Лавинского

fopen.Filter:='Текстовые файлы | *.txt';

fsave.Filter:='Архивированные файлы | *.arhi';

While flag4<>1 do

begin

i:=0;

flag4:=1;

if fopen.Execute then

begin

flag3:=0;

assignfile(f,fopen.filename);

reset(f);

for i:=0 to 9999 do fileperem[i]:=' ';

i:=0;

while (not eof(f)) and (i<100000) do

begin

read(f,c);

if (c<>' ')and((c<'0')or(c>'9'))and(c<>'-')and (c<>'+')and (c<>#13)and

(c<>#10 ) then

begin

if MessageDlg('Фаил содержит буквенный символ. Указать другой фаил?',

mtconfirmation,[mbYes,mbno],0) =mryes

then flag3:=1 else flag3:=11;

i:=1000000;

end else

begin

fileperem[i]:=c;

i:=i+1;

if i>99999 then

begin