Во время разведывательной операции к вампирам попало зашифрованное письмо эльфийского< командования с планом действия их войск в решающей битве. Захваченный пленник рассказал о принципе шифрования всей корреспонденции эльфов: каждая буква алфавита заменяется буквой, чей номер равен 27-i, где i – порядковый номер исходной буквы - Pascal(Паскаль)

Поэтому командование войск Темного Королевства решило внести смуту в ряды войск противников, изменив содержание полученного письма. К вам обратились с просьбой помочь в этом деле.
Имеется сообщение из N (N<255) символов.
Необходимо зашифровать его описанным выше образом.
Формат ввода:
N — N длина строки, включая пробелы
Строка их N символов без знаков препинания, все символы — прописные латинские буквы. В конце предложения ставится точка
Формат вывода:
Зашифрованное сообщение
Пример ввода:
19
IT IS CLOUDY TODAY.
Пример вывода:
RG RH XOLFWB GLWZB.

Var
 S: string;
 i: byte;
Const
 A: string[26] = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
Begin
 Write('S: ');
 Readln(S);
 For i:=1 to length(S) do
  If Pos(S[i],A)<>0 then
   S[i]:=A[27-Pos(S[i],A)];
 Writeln('   ',S);
End.