Дан массив символьных строк. В строках четной длины заменить все большие латинские на следующие по алфавиту

var
  s: array [1..100] of string;
  j, n, i: integer;
 
begin
  write('N? ');
  readln(n);
  for i := 1 to n do
    readln(s[i]);
  for i := 1 to n do
    if not odd(length(s[i])) then
      for j := 1 to length(s[i]) do
      begin
        if s[i][j] in ['A'..'Y'] then
          s[i][j] := chr(ord(s[i][j]) + 1);
        if s[i][j] = 'Z' then
          s[i][j] := 'A';
      end;
  for i := 1 to n do
    writeln(s[i]);
end.

Type
 mas = array [1..100] of string;
 
procedure vvod(var m: mas; var n:integer);
var
  i: integer;
begin
readln(n);
  for i:= 1 to n do
  begin
    readln(m[i]);
  end;
end;
 
procedure ischi (var stroka:string);
var i, ch, err, k:integer;
var alph, p:string;
begin
alph:='ABCDEFGHIJKLMNOPQRSTUVWXYZA';
for i:=1 to length(stroka) do
begin
  p:=copy(stroka, i, 1);
 if pos(p, alph)>0 then 
  begin
  delete(stroka, i, 1);
  insert(copy(alph, pos(p, alph)+1, 1), stroka, i)
  end;
 end;
end;
 
procedure vivod(m: mas;n:integer);
var
  i: integer;
begin
  for i:= 1 to n do
    writeln(m[i]);
end;
 
procedure sch (var str:mas; n:integer);
var i, k, num, min:integer;
begin
for i:=1 to n do
 begin
 if length(str[i]) mod 2=0 then ischi(str[i]);
 end;
end;
 
var str:mas;
var a:integer;
begin
vvod (str, a);
sch (str, a);
vivod (str, a);
end.

var n, i: Integer; s: String;
begin
  ReadLn(n);
  for n:=1 to n do begin
    ReadLn(s);
    if not Odd(Length(s)) then
      for i:=1 to Length(s) do
        case s[i] of 'A'..'Y': Inc(s[i]); 'Z': s[i]:='A'; end;
    WriteLn(s);
  end;
end.