Шифровальщик, который заменяет каждую букву следующей по порядку в алфавите

uses crt;
var s: string;
    i: integer;
begin
writeln('');
readln(s);
for i:=1 to length(s) do
    if (s[i]='а')
       then s[i]:='б';
writeln('',s);
end.

const alpha='абвгдежзийклмнопрстуфхцчшщъыьэюя';
...
for i:=1 to Length(s) do 
begin
  k:= Pos(s[i], alpha);
  if k>0 then begin
    k:=k+1;
    if k>length(alpha) then k:=1;
    s[i] := Copy( alpha, k, 1)
  end;
end;

Uses
 crt;
Function decrypt(a:string):string;
Var i,k:integer;
Begin
For i:=1 to length(a) do
If (a[i] = 'А') or (a[i] = 'а') then Begin
k:=ord(a[i])+31;
a[i]:=chr(k);
End
else
If a[i] in ['Б'..'Я','б'..'я'] then Begin
k:=ord(a[i])-1;
a[i]:=chr(k);
End;
 decrypt:=a;
End;
 
Function encrypt(a:string):string;
Var i,k:integer;
Begin
 For i:=1 to length(a) do
  If (a[i] = 'Я') or (a[i] = 'я') then Begin
k:=ord(a[i])-31;
a[i]:=chr(k);
End
else
   If a[i] in ['А'..'Ю','а'..'ю'] then Begin
k:=ord(a[i])+1;
a[i]:=chr(k);
End;
 encrypt:=a;
End;
 
Var
 a:string;
 mode:byte;
Begin
 Readln(a);
 Repeat
  Write('Выберите режим (1-шифрование, 2-расшифрование): ');
  Readln(mode);
 Until (mode = 1) or (mode=2);
 Case mode of
  1:writeln(encrypt(a));
  2:writeln(decrypt(a));
 End;
End.

s[i] := Copy( alpha, k, 1)[1];

s[i] :=  alpha[k];