СРОЧНО!!!
Написать на Pascal шифр Атбаш, не через массив! Присвоив переменной с1:='A B C...Y Z',
а переменной с2:='Z Y ...C B 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 p>0 then s[i]:=s2[p]  end;  Writeln('Результат: ',s)end.Тестовое решение:Введите текст: HELLO, WORLD!Результат: SVOOL, DLIOW!Символы не вошедшие в шаблон замены, не шифруются.