Зашифровать текст, записанный с помощью русских букв и знаков препинания

Uses
 crt;
Procedure Read_Text;
var name:string[255];
   f:text;
   txt:string;
   ioresult:integer;
begin
 repeat
   write('Введите имя файла для считывания текста :>');
   readln;
   writeln;
   assign(f,'C:\PABCWork\File.txt');
   reset(f);
   if ioresult<>0 then begin
       writeln('Файл не найден...');
       close(f);
       end;
   writeln;
 until ioresult=0;
 writeln('Файл',Name,' :');
 writeln;
 while not EoF(f) do begin
   readln(f,txt);
   writeln(txt);
   end;
 close(f);
writeln;
  write('Файл считан, нажмите Enter...');
  readln;
end;
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;
 
For i:=1 to length(a) do WRITELN(A[I]);
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;
k:byte;
mode:byte;
Begin
writeln('1.считывание из файла');
writeln('2.ввод с клавиатуры');
 readln(k);
 if k=1 then read_text;
 if k=2 then BEGIN writeln('введите текст на русском языке');
 Readln(a); end;
 Repeat
  Write('Выберите режим (1-шифрование, 2-расшифрование): ');
  Readln(mode);
 Until (mode = 1) or (mode=2);
 Case mode of
  1:writeln(decrypt(a));
  2:writeln(encrypt(a));
 End;
readln
End.