Лабораторная работа: Алгоритм криптографического преобразования в режиме простой замены

TForm1 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Edit2: TEdit;

Label2: TLabel;

Button1: TButton;

StringGrid1: TStringGrid;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

i: integer;

j: integer;

k: integer;

a: integer;

b: integer;

y: integer;

c: integer;

d: integer;

e: integer;

f: integer;

g: integer;

x: integer;

m: integer;

t: integer;