нужно зашифровать текст.

uses crt;
const rz=[' ',',','.',';',':','!','?','''','"'];{набор разделителей}
var s,s1,s2,sp,sz:string;
    i,j,k:byte;
    c:char;
begin
clrscr;
writeln('Введите строку с разделителями');
readln(s);
S2:='';
i:=1;
while i<=length(s) do
if not(s[i]in rz)and ((i=1)or(s[i-1] in rz)) then
{если буква, а перед ней разделитель или она первая}
 begin
  k:=i;s1:='';
  while not(s[k] in rz)and(k<=length(s))do {пока не разделитель и не конец строки}
   begin
    s1:=s1+s[k];{составляем слово}
    k:=k+1;{по 1 символу}
   end;
  for j:=1 to length(s1) div 2 do {перевернем слово}
   begin
    c:=s1[j];
    s1[j]:=s1[length(s1)-j+1];
    s1[length(s1)-j+1]:=c;
   end;
   {меням местами пары букв}
  j:=1;
  while j<=length(s1)-1 do
   begin
    c:=s1[j];
    s1[j]:=s1[j+1];
    s1[j+1]:=c;
    j:=j+2;
   end;
  s2:=s2+s1;{в новую строку}
  i:=i+length(s1);{перепрыгиваем через слово}
 end
else{если разделитль}
 begin
  s2:=s2+s[i];{дописываем}
  i:=i+1;{на 1 вперед}
 end;
write(s2);
readln
end.