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

[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.

[volvo]

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

[APAL]

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

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

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