View difference between Paste ID: PXxr3iT2 and BY0hy9gc

 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                               { проверка,являлся ли символ буквой, если не являлся,значит слово кончилось и начинаеться запуск кодирования слова}
  begin
-  for l:=i-1 downto i-k do                       {запуск цикла, для изменения каждой буквы слова}
+  for l:=i-1 downto i-k do                       {запуск цикла, для изменения каждой буквы слова, -1 потому что проверка buk стоит уже после увеличения счетчика}
   begin
   if s[l] in ['a'..'z'] then                     {проверка, являеться ли буква строчной, если да, проверка 1,если нет - проверка 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)=9. Откуда -1?Т.к мы прибавляем к коду буквы "a", не считая ее саму }
 
   else if str[l]+k<=ord('Z') then str[l]:=str[l]+k else str[l]:=ord('A')+(str[l]+k-1-ord('Z'));  {Проверка 2, аналогично проверке 1, только для заглавных букв}
   end;
   k:=0;     {После завершения кодирования словв, обнуляем счетчик длинны слова}
 end;
 end;
 for i:=1 to length(s) do
 write(chr(str[i]));;     {выводим результат, меняя код , на его символ}
 end.