60分，第4、5个点错了

var s:string;
    i,l,n:integer;
begin;
  readln(n);
  readln(s);
  l:=length(s);
  s:=lowercase(s);
  for i:=1 to l do begin 
    if ord(s[i])+n>=122 then s[i]:=chr(ord(s[i])+n-26)
    else s[i]:=chr(ord(s[i])+n);
  end;
  write(s);
end.