Расшифровка "Афинная система подстановок".

const N=31; A=9; B=13;
var i,j,s: integer;
    alf,alf1,otext,shifr: string;
    mas: array [1..N] of integer;
begin
alf:='абвгдежзиклмнопрстуфхцчшщъыьэюя';
alf1:='АБВГДЕЖЗИКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
alf[0]:='я';
alf1[0]:='Я';
 
Writeln('Если вы хотите зашифровать текст - введите 1');
Writeln('Если вы хотите расшифровать текст - введите 2');
write('Ваш выбор: '); readln(s);
 
if s=1 then
begin
writeln('Введите текст , который будет зашифрован: ');  readln(otext);
writeln('Зашифрованный текст: ');
for j:=1 to length(otext) do
begin
if otext[j]=' ' then shifr[j]:=' '
else
for i:=1 to N do
if otext[j]=alf[i] then shifr[j]:=alf[((A*i+B) mod N)]
  else if otext[j]=alf1[i] then shifr[j]:=alf1[((A*i+B) mod N)];
write(shifr[j]);
end;
end
 
else
begin
writeln('Введите текст , который будет расшифрован: ');  readln(otext);
writeln('Расшифрованный текст: ');
for j:=1 to length(otext) do
begin
if otext[j]=' ' then shifr[j]:=' '
else
for i:=1 to N do
if otext[j]=alf[i] then shifr[j]:=alf[abs((7*(i-B)) mod N)]
  else if otext[j]=alf1[i] then shifr[j]:=alf1[abs((7*(i-B)) mod N)];
write(shifr[j]);
end;
end;
end.