Программа архиватор- разархиватор текстовых файлов, Программа архиватор- разархиватор текстовых файлов Опции

[Malice]

Да простит меня великий модератор, прикреплю архивчик с прогой, откомпиленной прогой, исходный файлом и start.bat файлом (который надо запустить, чтоб увидеть code/decode если что [результат кодировки в 2.txt, обратно в 3.txt, так, на всякий случай]), но ответить подробно я не в состоянии сейчас.. Не удивлюсь, что прога запускалась в том же виде (кодировке), что и прекреплена Разница в конечном и исходном файлах должна объяснятся неполнотой используемого алфавита.
 code.ZIP ( 6.59 килобайт ) Кол-во скачиваний: 318

[blackhard]

чето при разорхивации теряются буквы

Program arch;
uses crt;
procedure code (a1,a2:string; k:boolean);
const
{ђ бЄ®¬Ґ­вЁа®ў вм «оЎ®© Ё§ Ї®­а ўЁdўиЁебп: }
   al_:set of char=['Ђ'..'џ',' '..'Ї','а'..'п',' ','.',',',#13,#10,';','!']; {‘ Ў®«миЁ¬Ё ЎгЄў ¬Ё, ­® 7bit}
{  al_:set of char=[' '..'Ї','а'..'п',' ','.',',',#13,#10,';','!']; { ЎҐ§ Ў®«миЁе, ­® 6}
{  al_:set of char=[' '..'Ї','а'..'п',' ']; { в®«мЄ® ¬ «Ґ­мЄЁҐ 5 bit}
{  al_:set of char=['0'..'9','A'..'F']; { hex , «ҐЈЄ® Їа®ўҐапвм}
var
  al,al2:array[byte] of byte;
  c:char;
  n,z,ln,b:byte;
  w:word;
  f1,f2: file of byte;
begin
  b:=255; ln:=0;
  for c:=#0 to #255 do {§ Јаг¦ Ґ¬  «д ўЁв Ё§ ¬­®¦Ґбвў }
   if c in al_ then begin
    inc (b); al[ord©]:=b; al2[b]:=ord©;
   end
    else al[ord©]:=255;
     while b>0 do begin inc (ln); b:=b div 2; end; {‘зЁв Ґ¬ Є®«ў® ЎЁв}
     Writeln ('Using ',ln, ' bit on char..');
  if k then z:=8 else begin z:=ln; ln:=8; end;
  {$I-} assign (f1,a1); reset (f1);   {$I+}
  if ioresult<>0 then begin writeln ('File error..');
  end;
  {$I-} assign (f2,a2); rewrite (f2);  {$I+}
  if ioresult<>0 then begin writeln ('File error..');
  end;
  n:=0; w:=0;
  repeat
    read (f1,b); {зЁв Ґ¬ Ї®Ў ©в­®}

вот че выходит

Код

е конено поай е иел казал.
оледний аз пивел на  обой в о зал.
адами леп м оим  ен,  гн
зава азлеим,  обой ко кда.
зава азлеим пен из гнезда.
веи на кла, може б, олко еез года.

чето все равно разорхивация плохо работает