Нужно разобраться в коде

  b:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; 
 for i:=1 to length(a) do //цикл
  for j:=1 to length(b) do 
  begin 
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;

 var a,b,c:string;
 i,j,k,d:integer;

var 
  a,b,c:string;
  i,j,k,d:integer;
begin 
d:=1; //величина сдвига
a:='уфхцчшщъыьэюа'; //последовательность
b:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; //алфавит
for i:=1 to length(a) do //цикл проходящий по всем элементам строки а
  begin
    for j:=1 to length(b) do //цикл в котором ищется символ на замену i-му элементу строки а
      begin
      if a[i]=b[j] then //проходим по строке b и ищем элемент равный текущему i-му элементу строки a
        begin
          k:=j+d; //вычисляем индекс нужного элемента для замены
          If k>33 then //проверяем условие выхода за границы 
            k:=k-33; //если индекс выходит за границы (то начинаем сначала - случай когда буква 'я' меняется на 'а)'
          c:=c+b[k]; //в итоговую строку вставляем нужный элемент на который мы заменили символ со строки "a"
          break //выходим из вложенного цикла, т.к. мы заменили текущий символ и можно переходить к следующему символу из строки "а"
        end;
      end;
  end;
writeln(c) //выводим результирующую строку
end.