program szyfruj;
var inp, outp, zmyla : text;
   zn   : char;

begin
   assign(inp,'./list.zkd');
   reset(inp);
   assign(zmyla,'./zmyla');
   reset(zmyla);
   assign(outp,'./list.dkd');
   rewrite(outp);
   
   while not eof(zmyla) do
   begin
     read(inp,zn);
     read(zmyla,zn)   
   end;
 
   while not eof(inp) do
   begin
     read(inp,zn);
     write(outp,chr(ord(zn)-7))   
   end;
   close(inp);
   close(outp);
   close(zmyla)
end.