Расшифруйте найденную шифровку

var
  st: char;    
  sl: string[200];  
  k, max, i, n, x: integer;
begin
  k := 0;   
  max := 0; 
  n := 0; 
  repeat
    begin
      read(st);  
      sl := sl + st;  
      n := n + 1; 
      if ((ord(st) > 64) and (ord(st) < 91)) or ((ord(st) > 96) and (ord(st) < 123)) then 
        k := k + 1  
      else 
      if k > max then  
      begin
        max := k;  
        k := 0;   
      end 
      else 
        k := 0;   
    end; 
  until st = '.';  
  for i := 1 to n do 
    if ((ord(sl[i]) > 64) and (ord(sl[i]) < 91)) or ((ord(sl[i]) > 96) and (ord(sl[i]) < 123)) then 
      if (ord(sl[i]) > 64) and (ord(sl[i]) < 91) then 
        if (ord(sl[i]) + max) < 91 then sl[i] := char(ord(sl[i]) + max) 
        else 
        begin
          x := max - (90 - ord(sl[i])); 
          sl[i] := char(64 + x); 
        end 
      else 
      if (ord(sl[i]) + max) < 123 then sl[i] := char(ord(sl[i]) + max) 
      else 
      begin
        x := max - (122 - ord(sl[i])); 
        sl[i] := char(96 + x); 
      end; 
  writeln(sl); 
end.

const k=3;
 
begin
  ReadString
  .Select(ch->
  begin
    var upper := ch.IsUpper;
    if upper then ch := ch.ToLower;
    
    if ch.InRange('a','z') then
    begin
      var id := word(ch)-word('a');
      id += k;
      //while id<0 do id += 26;//понадобится если k может быть отрицательным
      ch := char( word('a') + id mod 26 );
    end;
    
    Result := upper?ch.ToUpper:ch;
  end)
  .Print;
end.

begin
  var s := ReadString;
  
  var k :=
    s.Select(ch->ch.ToLower.InRange('a','z')?ch:' ')
    .JoinIntoString
    .ToWords
    .Max(w->w.Length)
  ;
  
  s.Select(ch->
  begin
    var upper := ch.IsUpper;
    if upper then ch := ch.ToLower;
    
    if ch.InRange('a','z') then
    begin
      var id := word(ch)-word('a');
      id += k;
      //while id<0 do id += 26;//понадобится если k может быть отрицательным
      ch := char( word('a') + id mod 26 );
    end;
    
    Result := upper?ch.ToUpper:ch;
  end)
  .Print;
end.