СРОЧНО!!! Написать ** Pascal шифр Атбаш, не через массив! Присвоив переменной с1:='A B...

Question

СРОЧНО!!!
Написать на Pascal шифр Атбаш, не через массив! Присвоив переменной с1:='A B C...Y Z',
а переменной с2:='Z Y ...C B A';

Answer 1

Const
  s1='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  s2='ZYXWVUTSRQPONMLKJIHGFEDCBA';
var
  i,p:integer;
  s:string;
begin
  Write('Введите текст: '); Readln(s);
  for i:=1 to Length(s) do
  begin
    p:=Pos(s[i],s1);
    if p>0 then s[i]:=s2[p]
  end;
  Writeln('Результат: ',s)
end.

Тестовое решение:
Введите текст: HELLO, WORLD!
Результат: SVOOL, DLIOW!

Символы не вошедшие в шаблон замены, не шифруются.