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

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