Криптография - метод Цезаря. Ошибка расшифровки

unit Unit1;
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Edit1: TEdit;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const U:array[0..26] of char = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z',' ');
 
var
  Form1: TForm1;
     a:array[0..26] of char;
  i, j, k: integer;
  s, s2:string;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button3Click(Sender: TObject);
 
  begin
  Close;
  end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
 
      begin
        if edit1.text='no' then
          begin;
          For i:=0 to 26 do begin
          a[i]:=U[(i+1) mod 27];
          end;
        s:=Memo1.Lines.Text;
        for i:=1 to length(s) do
        for j:=0 to 26 do
        if s[i]=a[j] then s2:=s2+a[(j+3) mod 27];
        Memo2.Lines.Text:=s2;
        s2:='';
        memo1.Clear;
      end
else form2.show
end;
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
 
 begin
        if edit1.text='no' then
          begin;
          For i:=0 to 26 do begin
          a[i]:=U[(i+1) mod 27];
          end;
        s:=Memo1.Lines.Text;
        for i:=1 to length(s) do
        for j:=0 to 26 do
        if s[i]=a[j] then s2:=s2+a[(j-3) mod 27];
        Memo2.Lines.Text:=s2;
        s2:='';
        memo1.Clear;
      end
else form2.show
end;
end.

for i:=1 to length(s) do
for j:=0 to 26 do
if s[i]=a[j] then s2:=s2+a[(j-3) mod 27];

if s[i]=a[j] then s2:=s2+a[(j-3) mod 27];
заменить на 
if s[i]=a[j] then s2:=s2+a[(27+j-3) mod 27];