free pascal IDE 高手来

设计一个简单的编码，解码程序。（只能包含大写字母、逗号、句号、空格）比如 WO SHI TIAN CAI,WA HA HA。 编码过程:先读入一个正整数，n（1<=n <=26） 他与大写字母相对应 如n=9 对应第九个I 如原码是ABCDEFGHIJKLMNOPQSTUVWXYZ 转换码就是IJKLMNOPQSTUVWXYZABCDEFGH 而其他字母不变，则转换成WV空格（我把所有的空格用中文打出来是以免搞错，你们编程序时只用空格就行了）I空格KTMIZ空格LIG,GMC AMN KIV NMZMDMZ,为了使它更难以破译，转换后在从左到右两两交换，最后只剩下一个就不换，即得VWI空格K空格MTZIL空格GIG,CWA空格MMK空格VINZWDMZM。 然后把最开始的n代表的字母放在最前面，得IVWI空格K空格MTZIL空格GIG,CWA空格MMK空格VINZWDMZM 。 编码就是整个过程倒过开，最后得到原句。设计一个简单的编码，解码程序。（只能包含大写字母、逗号、句号、空格 ）比如 WO SHI TIAN CAI,WA HA HA。 编码过程:先读入一个正整数，n（1<=n <=26） 他与大写字母相对应 如n=9 对应第九个字母I 如原码是ABCDEFGHIJKLMNOPQSTUVWXYZ 转换码就是IJKLMNOPQSTUVWXYZABCDEFGH（从第n个字母开始一直到最后的所有字母提前）。而其他字母不变，则转换成WV I KTMIZ LIG,GMC AMN KIV NMZMDMZ,为了使它更难以破译，转换后在从左到右两两交换，最后只剩下一个就不换，即得VWI K MTZIL GIG,CWA MMK VINZWDMZM。 然后把最开始的n代表的字母放在最前面，得IVWI K MTZIL GIG,CWA MMK VINZWDMZM 。 编码就是整个过程倒过开，最后得到原句。