Не могу понять в чем ошибка

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

reset(f1);
          for h:= 1 to 5 do
            begin
              while not eof(f1) do
                begin
                  read(f1,p[h]);
                  write(p[h]:3);
                end;
            end;