Блок-схему к программе RSA

[Roman2008]

unit Unit16;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type

  TIncodeMes = array of Integer;

  TForm16 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Memo3: TMemo;
    Button2: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    FMes: TIncodeMes;
  public
    { Public declarations }
  end;

var
  Form16: TForm16;
  i,n:Integer;

implementation
uses math;

{$R *.dfm}

function Encrypt(s: string; e:integer): TIncodeMes;
var
  res,j: Integer;
begin
  SetLength(result, length(s));
  for i := 0 to Length(s) - 1 do
  begin
    res:=1;
    for j:=1 to e do  // возведение в степень
      res:=(res*ord(s[i + 1])) mod n;
    result[i] := res;
  end;
end;

function Decrypt(Arr: array of integer; e:Integer): string;
var
  res,j:Integer;
begin
  SetLength(Result, Length(Arr));
  for i := 0 to Length(Arr) - 1 do
  begin
    res:=1;
    for j:=1 to e do  // возведение в степень
      res:=(res*arr[i]) mod n;
    result[i + 1] := chr(res);
  end;
end;

//Шифрование текста в Memo
procedure TForm16.Button1Click(Sender: TObject);
var
  e: Integer;
begin
  n := StrToIntDef(Edit3.Text, 697);
  e := StrToIntDef(Edit2.Text, 7);
  FMes := Encrypt(Memo1.Lines.Text, e);
  for i := 0 to High(FMes) do
    Memo2.Lines.Append(IntToStr(FMes[i]));
end;

//Дешифровка сообщения
procedure TForm16.Button2Click(Sender: TObject);
var
  d: integer;
  s : string;
begin
  d := StrToIntDef(Edit1.Text, 183);
  n := StrToIntDef(Edit3.Text, 697);
  s := Decrypt(FMes,d);
  Memo3.Lines.Add(s)
end;

end.

[hon]

Очень вежливо оформлен вопрос!
Очень доступно оформлена проблема!