PROGRAM decrypt(input,output);
USES CRT;
VAR
  F : TEXT;
  CH : CHAR;
  L, R : STRING;
CONST
  J = 8;
BEGIN
  L := '';
  R := '';
  ASSIGN(F, 'somefile');
  RESET(F);
  WHILE NOT EOF(F) DO
  BEGIN
   READ(F,CH);
   L := L + CHR(255 - ORD(CH));
  END;
  CLOSE(F);
  WRITELN(L);
END.