Помогите с расшифровкой Цезаря : Расшифруйте ...фирхвдуя , и с шсусыгв тсжcзг

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.