Шифрование текста

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    RichEdit1: TRichEdit;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    RichEdit2: TRichEdit;
    GroupBox2: TGroupBox;
    prost: TButton;
    Label2: TLabel;
    Timer1: TTimer;
    GroupBox3: TGroupBox;
    Button4: TButton;
    textVij: TRichEdit;
    Label3: TLabel;
    keyVij: TEdit;
    Button3: TButton;
    procedure N9Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure TabSheet3Exit(Sender: TObject);
    procedure prostClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   o:integer;
 
 
    const
    mas : array[1..160] of char = ('л','м','н','о','п','р','с','т','у','ф','х','ц',
                                   'M','N','O','P','Q','R','S','T','U','Y','W','X',
                                   '1','2','3','4','5','6','7','8','9','0','v','z',
                                   'ч','ш','щ','ъ','ы','ь','э','ю','я',' ','Д','Е',
                                   'm','n','o','p','q','r','s','t','u','y','w','x',
                                   'a','b','c','d','e','f','g','h','i','j','k','l',
                                   'Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц',
                                   'А','Б','В','Г','Ё','Ж','З','И','Й','К','Ю','Я',
                                   'а','б','в','г','д','е','ё','ж','з','и','й','к',
                                   'A','B','C','D','E','F','G','H','I','J','K','L',
                                   'Ч','Ш','Щ','Ъ','Ы','Ь','Э','V','Z','!','@','"',
                                   '#','№','$',';','%','^',':','&','?','*','(',')',
                                   '-','_','=','+','/','|','\','[',']','{','}','<',
                                   '>','~','`','.');
    massiv:array[1..160] of char= ('.','`','~','>','<','}','{',']','[','\','|','/','+',
                                   '=','_','-',')','(','*','?','&',':','^','%',';','$',
                                   '№','#','"','@','!','Z','V','Э','Ь','Ы','Ъ','Щ','Ш',
                                   'Ч','L','K','J','I','H','G','F','E','D','C','B','A',
                                   'к','й','и','з','ж','ё','е','д','г','в','б','а','Я',
                                   'Ю','К','Й','И','З','Ж','Ё','Г','В','Б','А','Ц','Х',
                                   'Ф','У','Т','С','Р','П','О','Н','М','Л','l','k','j',
                                   'i','h','g','f','e','d','c','b','a','x','w','y','u',
                                   't','s','r','q','p','o','n','m','Е','Д',' ','я','ю',
                                   'э','ь','ы','ъ','щ','ш','ч','z','v','0','9','8','7','6',
                                   '5','4','3','2','1','X','W','Y','U','T','S','R','Q','P',
                                   'O','N','M','ц','ч','ф','у','т','с','р','п','о','н','м','л');
 
procedure TForm1.Button1Click(Sender: TObject);
var
 i,j,a,key,w:integer;
 text,result:string;
begin
 if Edit1.Text='' then
 Begin
  ShowMessage('Введите ключевое число');
  Edit1.SetFocus;
  exit;
 End;
  IF RichEdit1.Lines.Text='' then
 begin
 ShowMessage('Что шифровать??????');
 exit;
 end;
for w:=0 to 10000 do begin
result:='';
 key:=StrToInt(edit1.Text);
 Text:=RichEdit1.Lines.Strings[w];
  for i:=1 to length(text) do
    for j:=1 to 160 do
      if text[i] = mas[j] then
       begin
        a:=j+(key);
        while a>160 do
         begin
          a:=a mod 160;
         end;
          text[i]:=mas[a];
          result:=result+text[i];
          RichEdit1.Lines.Strings[w]:=result;
          break;
       end;
    end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var
 i,j,a,key,w:integer;
 text,result:string;
begin
 if Edit1.Text='' then
 Begin
  ShowMessage('Введите ключевое число');
  Edit1.SetFocus;
  exit;
 End;
 IF RichEdit1.Lines.Text='' then
 begin
 ShowMessage('Что расшифровать??????');
 exit;
 end;
 for w:=0 to 10000 do begin
result:='';
 key:=StrToInt(edit1.Text);
 Text:=RichEdit1.Lines.Strings[w];
  for i:=1 to length(text) do
    for j:=1 to 160 do
      if text[i] = mas[j] then
       begin
        a:=j-key;
        if a<0 then a:=160+a;
        if a=0 then a:=160;
        while a>160 do
         begin
          a:=a mod 160;
         end;
          text[i]:=mas[a];
          result:=result+text[i];
          RichEdit1.Lines.Strings[w]:=result;
          break;
       end;
    end;
end;