Таблица Виженера в Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
   
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  mas_alf: array[1..32] of char = ('А','Б','В','Г','Д','Е','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ь','Ы','Ъ','Э','Ю','Я');
  tab_Vig: array[1..32,1..32] of Char;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i,j,k,n:integer;
begin
 k:=0;
 n:=k;
 
 for i:=Ord('А')-191 to Ord('Я')-191 do
 begin
   k:=n+1;
   for j:=Ord('А')-191 to Ord('Я')-191 do
    begin
     if k = 33 then
        k:=1;
     tab_vig[i][j]:=mas_alf[k];
     k:=k+1;
    end;
    n:=n+1;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  key : array [0..255] of Char;
  s:char;
  k:Boolean;
  length_key,length_text,i,j,c,stroka,stolbec: integer;
begin
 
 
 
 for i:=Ord('А')-191 to Ord('Я')-191 do
 begin
    for j:=Ord('А')-191 to Ord('Я')-191 do
    begin
    StringGrid1.Cells[j,i]:= tab_Vig[i][j];
 
    end;
 
 end;
 
 
end;
 
 
 
end.

' '

var
  Form1: TForm1;
  mas_alf: array[1..33] of char = ('А','Б','В','Г','Д','Е','Ж','З','И',
                                   'Й','К','Л','М','Н','О','П','Р','С',
                                   'Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ь',
                                   'Ы','Ъ','Э','Ю','Я',' ');
  tab_Vig: array[1..33,1..33] of Char;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
  i,j,k,n:integer;
begin
 k:=0;
 n:=k;
 
 for i:=1 to 33 do
 begin
   k:=n+1;
   for j:=1 to 33 do
    begin
     if k = 34 then
        k:=1;
     tab_vig[i][j]:=mas_alf[k];
     k:=k+1;
    end;
    n:=n+1;
 end;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  key : array [0..255] of Char;
  s:char;
  k:Boolean;
  length_key,length_text,i,j,c,stroka,stolbec: integer;
begin
for i:=1 to 33 do
 begin
    for j:=1 to 33 do
    begin
    StringGrid1.Cells[j,i]:= tab_Vig[i][j];
 
    end;
 end;
 
end;