Кодировать и декодировать символы путем сдвига их на определенные 5 чисел в диапазоне от -9 до 9

uses crt;
Const
  y = 'АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя ';
 
var 
 a:string;
 r:integer;
 i1,h,h2,i2: integer;
 
 f,f1: text;
 
p:array [-67..67] of integer;
s1,s2:string;
 
if r=3 then 
begin
assign(f, 'text.txt');
writeln('Введите текст');
readln(s1);
rewrite(f);
     for h:=1 to 5 do
     begin
     p[h]:= random(10)-random(10); 
     write(p[h]:3);
       write(f,p[h]:3);    
     end;
      close(f);
      for i1:= 1 to length(s1) do
       begin
       If (Pos(s1[i1],y)<>0) then
       begin
       h:=Pos(s1[i1],y)+p[(i1-1) mod 5+1];
       if h>length(y) then h:=h-length(y);
       if h<1 then h:=length(y)+h;
       s1[i1]:=y[h];
       end;
end;     
    writeln;
       writeln(s1);
end;
 
if r=4 then
begin
readln(s2);
assign(f1, 'text.txt');
reset(f1);
  for h2:= 1 to 5 do
    begin
      while not eof(f1) do
       begin
        read(f1,p[h2]);
        write(p[h2]:3);
       end;
         
   end;
  close(f1);
writeln;
    n:=length(s2);
    for i2:= 1 to n do
       begin
       If (Pos(s2[i2],y)<>0) then
       begin
       h2:=Pos(s2[i2],y)-p[(i2-1) mod 5+1];
       writeln(s2[i2],' ',h2,' ',(i2-1) mod 5+1);
       if h2>67 then h2:=h2-67;
       if h2<1 then h2:=67+h2;
       write(' ',h2);
       s2[i2]:=y[h2];
       
       end;
       
       
end;     
    writeln;
       writeln(s2);
    
end;
end.