Переписать текст из одного файла в другой с заменой английских букв по заданному правилу

const b=['A'..'Z'];
      m=['a'..'z'];
var f,g:text;
    alf:set of char;
    bb,mb:array[0..25]of char;
    s:string;
    i,j,l,k,p:integer;
begin
for i:=0 to 25 do
 begin
  bb[i]:=chr(i+65);
  mb[i]:=chr(i+97);
 end;
alf:=m+b;
assign(f,'input.txt');
reset(f);
k:=255;
while not eof(f) do
 begin
  readln(f,s);
  s:=' '+s;
  i:=2;
  while i<=length(s) do
  if(s[i] in alf)and not(s[i-1] in alf) then
   begin
    l:=0;
    j:=i;
    while(j<=length(s))and(s[j] in alf) do
     begin
      l:=l+1;
      j:=j+1;
     end;
    if l<k then k:=l;
    i:=i+l;
   end
  else i:=i+1;
 end;
writeln('Наименьшая длина слова=',k);
assign(g,'output.txt');
rewrite(g);
reset(f);
while not eof(f) do
 begin
  readln(f,s);
  for i:=1 to length(s) do
   begin
    if s[i]in b then
     begin
      p:=0;
      while bb[p]<>s[i] do inc(p);
      s[i]:=bb[(p+k)mod 26];
     end
    else if s[i] in m then
     begin
      p:=0;
      while mb[p]<>s[i] do inc(p);
      s[i]:=mb[(p+k)mod 26];
     end;
   end;
  writeln(g,s);
 end;
close(f);
close(g);
writeln('Файл input.txt прочитан, строки зашифрованы и записаны в файл output.txt')
end.

const b=['A'..'Z'];
      m=['a'..'z'];
      alf=m+b;
      n=26;
type mas=array[0..n-1] of char;
procedure alfavit(var bb,mb:mas);
var i:integer;
begin
for i:=0 to n-1 do
 begin
  bb[i]:=chr(i+65);
  mb[i]:=chr(i+97);
 end;
end;
function min(var f:text):integer;
var i,j,k,l:integer;
    s:string;
begin
assign(f,'input.txt');
reset(f);
k:=255;
while not eof(f) do
 begin
  readln(f,s);
  s:=' '+s;
  i:=2;
  while i<=length(s) do
  if(s[i] in alf)and not(s[i-1] in alf) then
   begin
    l:=0;
    j:=i;
    while(j<=length(s))and(s[j] in alf) do
     begin
      l:=l+1;
      j:=j+1;
     end;
    if l<k then k:=l;
    i:=i+l;
   end
  else i:=i+1;
 end;
close(f);
min:=k;
end;
procedure shifr(var f,g:text;bb,mb:mas;k:integer);
var s:string;
    i,p:integer;
begin
assign(g,'output.txt');
rewrite(g);
reset(f);
while not eof(f) do
 begin
  readln(f,s);
  for i:=1 to length(s) do
   begin
    if s[i]in b then
     begin
      p:=0;
      while bb[p]<>s[i] do inc(p);
      s[i]:=bb[(p+k)mod n];
     end
    else if s[i] in m then
     begin
      p:=0;
      while mb[p]<>s[i] do inc(p);
      s[i]:=mb[(p+k)mod n];
     end;
   end;
  writeln(g,s);
 end;
close(f);
close(g);
writeln('Файл input.txt прочитан, строки зашифрованы и записаны в файл output.txt')
end;
var f,g:text;
    bb,mb:mas;
    k:integer;
begin
alfavit(bb,mb);
k:=min(f);
writeln('Наименьшая длина слова=',k);
shifr(f,g,bb,mb,k);
end.