e.txt';
Fdecode = 'decode.txt'; Var F1,F2: TextFile; ch: Char; begin AssignFile(F1, Fcode); AssignFile(F2, Fdecode); Reset(F1); Rewrite(F2); while not eof(F1) do begin Read(F1,ch); if (Ord(ch)>=Ord('A')) and (Ord(ch)<=Ord('Z')) then ch:=chr(Ord('A')+25-(Ord(ch)-Ord('A')));
if (Ord(ch)>=Ord('a')) and (Ord(ch)<=Ord('z')) then
ch:=chr(Ord('a')+25-(Ord(ch)-Ord('a')));
Write(F2,ch);
end;
CloseFile(F1);
CloseFile(F2);
end.