Нужно изменить программу, нужно тоже самое, только чтобы код программы был другим

unit Unit1;
 
interface
 
uses
  System, System.Drawing, System.Windows.Forms;
 
type
  Form1 = class(Form)
    procedure trackBar1_Scroll(sender: Object; e: EventArgs);
    procedure button3_Click(sender: Object; e: EventArgs);
    procedure button4_Click(sender: Object; e: EventArgs);
  {$region FormDesigner}
  private
    {$resource Unit1.Form1.resources}
    label1: &Label;
    button3: Button;
    textBox1: TextBox;
    textBox2: TextBox;
    label3: &Label;
    label4: &Label;
    trackBar1: TrackBar;
    label5: &Label;
    components: System.ComponentModel.IContainer;
    richTextBox1: RichTextBox;
    button4: Button;
    label2: &Label;
    {$include Unit1.Form1.inc}
  {$endregion FormDesigner}
  public 
    constructor;
    begin
      InitializeComponent;
    end;
  end;
 
implementation
 
 
procedure Form1.trackBar1_Scroll(sender: Object; e: EventArgs);
begin
  label4.Text := IntToStr(trackBar1.Value);
end;
 
procedure Form1.button3_Click(sender: Object; e: EventArgs);// зашифровываем текст
var
 
  matrica: array[1..10, 1..10]of char; //двумерный масив n-строка  m-столбец
  x, y: integer;  //координаты текущего элемента массива
  kolSim: integer;
  text1, alfavit, s1: string;
  n, i, a, add, dir, k: integer;
 
begin// заполняем матрицу по диагонали
 
  textBox2.Text := '';
  label1.Text := '';
  richTextBox1.Text :='';
  
  Randomize;
  alfavit := 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  n := trackBar1.Value;//writeln('Ведите разменость матрицы: ');readln(n);
  text1 := LowerCase(textBox1.Text);//writeln('Введите текст: ');readln(text);
  
  while (pos(' ', text1) <> 0) do // удаляем пробелы
  begin
    delete(text1, pos(' ', text1), 1);
  end;
  
  kolSim := length(text1);
  if kolSim <= n * n then
  begin
  i := 1; // индекс для нумерации букв
  x:=1; // координаты
  y:=0;
  add:=n; //длина отрезка от поворота до поворота
  dir:=1; // шаг =+1 при движении вправо и вниз, шаг =-1 при движении влево и вверх
  while (add<>0) do
    begin
    k:=0; // счетчик
    while (k<>add) do //вправо
    begin
      if i <= kolSim then
        begin
        y:=y+dir;
        matrica[x, y]:=text1[i];
        i:=i+1;
        k:=k+1;
        end
      else
        begin
        y:=y+dir;
        a := PABCSystem.random(33) + 1;
        matrica[x, y] := alfavit[a];
        k:=k+1;
        end;
    end;
    k:=0;
    add:=add-1;
    while (k<>add) do //вниз
      begin
      if i <= kolSim then
        begin
        x:=x+dir;
        matrica[x, y]:=text1[i];
        i:=i+1;
        k:=k+1;
        end
      else
        begin
        x:=x+dir;
        a := PABCSystem.random(33) + 1;
        matrica[x, y] := alfavit[a]; 
        k:=k+1;
        end;
      end;
    dir:=dir*(-1); //меняем знак и тоже самое влево и вверх
    end;
    
    // вывод матрицы 
    for x := 1 to n do 
    begin
      for y := 1 to n do
      begin
        richTextBox1.Text:=richTextBox1.Text + matrica[x, y]+'  ';
      end;
      richTextBox1.Text:=richTextBox1.Text+#13#10;
    end;    
    
    
    for x := 1 to n do // шифровка текста
    begin
      if x mod 2 <> 0 then
      begin
        for y := 1 to n do
          s1 := s1 + matrica[x, y];
      end
      else
      begin
        for y := n downto 1 do
          s1 := s1 + matrica[x, y];
      end;
    end;
    textBox2.Text := s1; // выводим зашифрованное сообщение
  end
  else
    label1.Text := 'Ошибка! Текст содержит больше букв чем позволяет матрица. Пожалуйста уменьшите текст или увеличьте размерность матрицы. Максимальный возможный размер матрицы 10=100букв';
end;
 
 
procedure Form1.button4_Click(sender: Object; e: EventArgs);// расшифровываем текст
var
  matrica: array[1..10, 1..10]of char; //двумерный масив n-строка  n-столбец
  x, y: integer;  //координаты текущего элемента массива
  kolSim: integer;
  text1, alfavit, s1: string;
  n, i, add, dir, k: integer;
 
begin// заполняем матрицу по диагонали
  textBox2.Text := '';
  label1.Text := '';
  richTextBox1.Text :='';
  
  alfavit := 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  text1 := LowerCase(textBox1.Text);//writeln('Введите текст: ');readln(text);
  
  while (pos(' ', text1) <> 0) do // удаляем пробелы
  begin
    delete(text1, pos(' ', text1), 1);
  end;
  
  kolSim := length(text1); // заполняем матрицу 
  if kolSim <= 100 then 
  begin
    i:=1;
    n := Round(sqrt(kolSim));
    
    for x := 1 to n do
    begin
      if x mod 2 <> 0 then
      begin
        for y := 1 to n do
         begin
         matrica[x, y]:=text1[i]; 
         i := i + 1;
         end;
      end
      else
      begin
        for y := n downto 1 do
          begin
          matrica[x, y]:=text1[i]; 
          i := i + 1;
          end;
      end;
    end;
      
    for x := 1 to n do // выводим матрицу
    begin
      for y := 1 to n do
      begin
        richTextBox1.Text:=richTextBox1.Text + matrica[x, y]+'  ';
      end;
      richTextBox1.Text:=richTextBox1.Text+#13#10;
    end;    
    
 // расшифровываем сообшение
  i := 1; // индекс для нумерации букв
  x:=1; // координаты
  y:=0;
  add:=n; //длина отрезка от поворота до поворота
  dir:=1; // шаг =+1 при движении вправо и вниз, шаг =-1 при движении влево и вверх
  while (add<>0) do
    begin
    k:=0; // счетчик
    while (k<>add) do //вправо
      begin
      y:=y+dir;
      s1:= s1 + matrica[x, y];
      k:=k+1;
      end;
    k:=0;
    add:=add-1;
    while (k<>add) do //вниз
      begin
      x:=x+dir;
      s1:= s1 + matrica[x, y];
      k:=k+1;
      end;
    dir:=dir*(-1); //меняем знак и тоже самое влево и вверх
    end;
    
   textBox2.Text := s1;  
   end
  else
    label1.Text := 'Размер текста превышает максимальный размер матрицы в 100 букв';
end;
end.