用pascal 编程Description要将China译成密码,译码规律是：用原来字母后面的第4个字母代替原来的字

用pascal 编程
Description
要将China译成密码,译码规律是：用原来字母后面的第4个字母代替原来的字母．例如,字母A后面第4个字母是E．E代替A.因此,China应译为Glmre.请编一程序,用赋初值的方法使cl、c2、c3、c4、c5五个变量的值分别为,’C’、’h’、’i’、’n’、’a’,经过运算,使c1、c2、c3、c4、c5分别变为’G’、’l’、’m’、’r’、’e’,并输出.
Input
China
Output
加密后的China
Sample Input
China
Sample Output
Glmre
Hint
只需要输出加密后的China
Source

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
c1, c2, c3, c4, c5: Char;
s0, s1: String;
begin
Writeln('请依次输入5个字符,每输入一个按回车：');
readln(c1);
Writeln('输入的字符1: ' + c1);
readln(c2);
Writeln('输入的字符2: ' + c2);
readln(c3);
Writeln('输入的字符3: ' + c3);
readln(c4);
Writeln('输入的字符4: ' + c4);
readln(c5);
Writeln('输入的字符5: ' + c5);
Writeln('');
s0 := c1+c2+c3+c4+c5;
s1 := chr(Byte(c1)+4)+chr(Byte(c2)+4)+chr(Byte(c3)+4)+chr(Byte(c4)+4)+chr(Byte(c5)+4);
Writeln('您输入的字符串是：' + s0 + ',转码后的结果是：' + s1);
Writeln('');
Writeln('按任意键退出.');
Readln(c1);
end.
再问： 貌似错的QAQ
再答： 怎么是错的呢？测试过了，是正确的呀。
再问： 不要这么烦的只要输出加密后的就行了不用文字说明的0 0