Шифр цезаря на паскале, почему не выдает при дешифрации букву В с ключом 3 и 5 и…

Шифр цезаря на паскале, почему не выдает при дешифрации букву В с ключом 3 и 5 и дальше! Чтоисправить? program SHIFR_CEZERYA; uses crt; var a,b,c: string; i,j,k,d,g: integer; begin clrscr; writeln ('Шифрование? 1-да,0-нет'); readln (g); writeln ('Исходный текст '); readln (a); writeln ('ключ'); readln (d); c: ='; //Результат b: ='абвгдеежзийклмнопрстуфхцчшщъыьэюя'; for i: =1 to length (a) do //цикл for j: =1 to length (b) do begin If g=1 then k: =(j+d) mod 33 else k: =(j-d) mod 33; if a[i]=b[j] then c: =c+b[k]; If k>33 then k: =k-33 else k: =k+33; end; writeln (c); readkey; end.