Безотлагательно!!!Написать на Pascal шифр Атбаш, не через массив! Присвоив переменной с1:=039;A

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 pgt;0 then s[i]:=s2[p]
  end;
  Writeln('Результат: ',s)
end.

Тестовое решение:
Введите текст: HELLO, WORLD!
Итог: SVOOL, DLIOW!

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