View difference between Paste ID: BY0hy9gc and WfvV1tpM

 program c4;
 const N=200;
 var s:string[200];
     i,l,k:integer;
         str:array[1..N] of integer ;
         buk:boolean ;
 
 begin
 readln(s);
 for i:=1 to length(s) do
 str[i]:=ord(s[i]);     {записываем в массив код каждого символа в строке}
 i:=1;k:=0;              {обнуляю счестчик K,а счетчик i=1 т.к. строка с 0 символа не начинаеться}
 while s[i]<>'#' do      {запуск цикла, выполнение пока не обнаружит символ #}
 begin
 if s[i] in ['a'..'z', 'A'..'Z'] then k:=k+1;   { проверка символа, являеться ли он буквой, если да, ув. счетчик на 1}
 i:=i+1;                                        { счетчик номера символа +1}
 buk:=s[i] in ['a'..'z', 'A'..'Z'];              { если символ, значение buk=true, если нет buk=false  }
-if buk=false then                               { проверка,являлся ли символ буквой, если не являлся,
+if buk=false then                               { проверка,являлся ли символ буквой, если не являлся,значит слово кончилось и начинаеться запуск кодирования слова}
-                                                    значит слово кончилось и начинаеться запуск кодирования слова}
+
   for l:=i-1 downto i-k do                       {запуск цикла, для изменения каждой буквы слова}
   begin
   if s[l] in ['a'..'z'] then                     {проверка, являеться ли буква строчной, если да, проверка 1,если нет - проверка 2}
-  if s[l] in ['a'..'z'] then                       {проверка, являеться ли буква строчной, если да, проверка 1,
+  if str[l]+k<=ord('z') then str[l]:=str[l]+k else str[l]:=ord('a')+(str[l]+k-1-ord('z')) {проверка 1, если код символа после кодирования,больше чем код буквы "z",то к номеру символа "a"(97) прибавляем разницу между полученным кодом и кодом символа "z"(122). Пример:если код буквы 120, а длинна слова была 4, то получим 124, что больше кода буквы "z".97+(124-1-122)=9. Откуда -1?Т.к мы прибавляем к коду буквы "a", не считая ее саму }
-                                                    если нет - проверка 2}
+
-  if str[l]+k<=ord('z') then str[l]:=str[l]+k else str[l]:=ord('a')+(str[l]+k-1-ord('z')) {проверка 1, если код символа после кодирования,
+
-   больше чем код буквы "z",то к номеру символа "a"(97) прибавляем разницу между полученным кодом и кодом символа "z"(122).
+
-   Пример:если код буквы 120, а длинна слова была 4, то получим 124, что больше кода буквы "z".97+(124-1-122)=98
+
-   Откуда -1?Т.к мы прибавляем к коду буквы "a", не считая ее саму }
+
 end;
 for i:=1 to length(s) do
 write(chr(str[i]));;     {выводим результат, меняя код , на его символ}
 end.