Дан текст из 200 символов. Зашифровать этот текст кодом Цезаря (каждый символ заменяется другим символом, код которого на N больше исходного — Pascal(Паскаль)

const
n=3;
 
function ce (tCode:string): string;
var
i:byte;
t:integer;
begin
for i:=1 to length(tCode) do
    begin
    t:=(ord(tCode[i])+n);
    if t>=255 then dec(t,255);
    tCode[i]:=chr(t);
    end;
    ce:=tCode;
end;
 
function cd (tdecode:string): string;
var
i:byte;
t:integer;
begin
for i:=1 to length(tdecode) do
    begin
    t:=(ord(tdecode[i])-n);
    if t<0 then inc(t,255);
    tdecode[i]:=chr(t);
    end;
    cd:=tdecode;
end;
 
var
s:string;
begin
write('s:');
readln(s);
writeln('s=',ce(s));
writeln('s=',cd(ce(s)));
end.