Написать на pascal шифр атбаш, не через массив! присвоив переменной с1: ='a b z', а переменной с2: ='z y b a';

Const
  s1='';
  s2='';
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!

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