Загвоздка в програме.

[ostego]

Прога для шифровки\дешифровки jpg файла не хочет нормально работать, подскажите где загвоздка.

program mod_shif;
uses crt;
var
k,i,j,n,m,punkt,b:byte;
f1,f2:file of byte;
ch:char;
begin
  clrscr;
  writeln('vyberite deistvye:');
  writeln('1.crypt');
  writeln('2.decrypt');
  readln(punkt);
  case punkt of
  1:begin
     assign(f1,'J:\lab\jpg\mod.jpg');
      assign(f2,'J:\lab\jpg\out.jpg');
      reset(f2);
      rewrite(f1);
      writeln('enter "n"');
      readln(n);
      writeln('enter "m"');
      readln(m);
      while Not Eof(f2) do
      begin
        read(f2,b);
        j:=((b*n+m) mod 256);
        write(f1,j);
      end;
      close(f1);
      close(f2);
    end;
  2:begin
      writeln('enter "n"');
      readln(n);
      writeln('enter "m"');
      readln(m);
      i:=0;
      k:=0;
      repeat
        i:=i+1;
        k:=((n*i) mod 256);
      until k=1;
      assign(f1,'J:\lab\jpg\mod.jpg');
      assign(f2,'J:\lab\jpg\out.jpg');
      reset(f1);
      rewrite(f2);
      while Not Eof(f1) do
      begin
        read(f1,b);
        j:=(i*((b-m)) mod 256);
        write(f2,j);
      end;
      close(f1);
      close(f2);
    end;
  end;
readln;
end.

заранее благодарю.

[baster128]

А в чем ненормальность работы?

[ostego]

файл входной стирает, а обратно не дешифрует ,даже если в качестве выходного файла ему оригинал подсунуть