Задача на строки, Неправильно работает программа Опции

[servo]

Зашифровать текст по алгоритму: каждая буква являющееся i-й по алфавиту заменяется на (i+2)-ю букву, предпоследняя буква по алфавиту заменяется первой и т.д.У меня заменяет но не на (i+2)

Код

Program A1;
var i,j:Integer;
    st1,st2:string;
Begin
      st2:='abcdefghijklmnopqrstuvwxyz';
      readln(st1);
      For i:=1 to length(st1) do begin
        for j:=1 to length(st1)  do  begin
         if st1[i]=st2[j] then st1[i]:=st2[j+2];

        end;

      end;
      writeln(st1);
      readln
end.

[klem4]

uses crt;

var

  s : string;
  i : byte;

begin

   clrscr;

   s := 'abcdefghijklmnopqrstuvwxyz';

   for i := 1 to length(s) do
    case s[i] of
       'a'..'x'   : s[i] := chr(ord(s[i])+2);
       'y' : s[i] := 'a';
       'z' : s[i] := 'b';
    end;
   writeln(s); 
   readln;
end.
 

[APAL]

Для русского текста такое не пройдет.

[volvo]

APAL,
немного ловкости рук, и для русского еще и не такое пройдет

[APAL]

APAL,
немного ловкости рук, и для русского еще и не такое пройдет

Это конечно, но в условии не сказано для какого алфавита нужно делать, соответственно можно считать, что klem сразу сделал правильно.

Предидущий мой пост был ремаркой для автора, чтобы он потом не ругался, что у него что-то не работет...