Переписать код с Делфи на C#

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Button2: TButton;
    RadioGroup1: TRadioGroup;
    StringGrid1: TStringGrid;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
Var
  Arr : Array Of Array Of Char;
 
//Зашифровать...
procedure TForm1.Button1Click(Sender: TObject);
Var
  m,n,i,j,k,r : Integer;
  s : String;
begin
  If Edit1.Text='' Then Exit; //Нечего шифровать
  s:=Edit1.Text; //Исходная строка
 
  If CheckBox1.Checked Then //Без пробелов
  s:=StringReplace(s,' ','',[rfReplaceAll]); //Удалим пробелы
 
  n:=StrToIntDef(Edit2.Text,5); //Количество столбцов
  m:=(Length(s)+(n-1)) Div n; //Количество строк
  Edit4.Text:=IntToStr(m);
  SetLength(Arr,m,n); //Определим размерность массива
 
  //Очищаем массив...
  For i:=0 To m-1 Do
  For j:=0 To n-1 Do
  Arr[i,j]:=Char(0);
 
  If RadioGroup1.ItemIndex=0 Then
  Begin
    //Записываем исходный текст в массив (таблицу) по столбцам...
    k:=1;
    For j:=0 To n-1 Do
    If k>Length(s) Then Break Else
    For i:=0 To m-1 Do
    Begin
      Arr[i,j]:=s[k];
      Inc(k);
      If k>Length(s) Then Break;
    End;
  End Else
  //Запись в таблицу по спирали...
  Begin
 
    r:=0;//расстояние от края до строки(столбца)
    k:=0;
    repeat
      for i:=r to m-1-r do //вниз
      If k<Length(s) Then
      begin inc(k); Arr[i,r]:=s[k]; end;
 
      for i:=r+1 to n-1-r do //вправо
      If k<Length(s) Then
      begin inc(k); Arr[m-1-r,i]:=s[k]; end;
 
      for i:=m-1-r-1 downto r do //вверх
      If k<Length(s) Then
      begin inc(k); Arr[i,n-1-r]:=s[k]; end;
 
      for i:=n-1-r-1 downto r+1 do //влево
      If k<Length(s) Then
      begin inc(k); Arr[r,i]:=s[k]; end;
 
      inc(r);
    until (k=m*n) Or (k>=Length(s)); //дошли до центра или конец строки
  End;
 
  //Запишем результат в StringGrid...
  StringGrid1.RowCount:=m+1;
  StringGrid1.ColCount:=n+1;
  For i:=1 To m Do //Нумерация строк
  StringGrid1.Cells[0,i]:=IntToStr(i);
  For i:=1 To n Do //Нумерация столбцов
  StringGrid1.Cells[i,0]:=IntToStr(i);
  //Запишем массив
  For i:=1 To m Do
  For j:=1 To n Do
  If Ord(Arr[i-1,j-1])<>0 Then
  StringGrid1.Cells[j,i]:=Arr[i-1,j-1] Else
  StringGrid1.Cells[j,i]:='';
 
  //Читаем текст из таблицы по строкам...
  k:=1;
  For i:=0 To m-1 Do
  For j:=0 To n-1 Do
  If Arr[i,j]<>Char(0) Then
  Begin
    s[k]:=Arr[i,j];
    Inc(k);
  End;
 
  Edit3.Text:=s; //Результат
  Finalize(Arr); //Освободим память массива
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  If (Key In ['0'..'9']) Then Exit;
  Key:=#0; //Вводим только цифры
end;
 
//Расшифровать...
procedure TForm1.Button2Click(Sender: TObject);
Var
  m,n,i,j,k,r : Integer;
  s : String;
begin
  If Edit3.Text='' Then Exit; //Нечего расшифровывать
  s:=Edit3.Text; //Исходная строка (зашифрованный текст)
  m:=StrToIntDef(Edit4.Text,5); //Количество строк
  n:=(Length(s)+(m-1)) Div m; //Количество столбцов
  Edit2.Text:=IntToStr(n);
  SetLength(Arr,m,n); //Определим размерность массива
 
  If RadioGroup1.ItemIndex=0 Then
  Begin
    //Очищаем массив...
    //Отмечаем по столбцам, чтобы определить незаполненную часть
    k:=1;
    For j:=0 To n-1 Do
    For i:=0 To m-1 Do
    If k>Length(s) Then Arr[i,j]:=Char(0) Else
    Begin
      Arr[i,j]:=Char(1);
      Inc(k);
    End;
  End Else
  Begin
    //Очищаем массив...
    //Отмечаем по спирали, чтобы определить незаполненную часть
    r:=0;//расстояние от края до строки(столбца)
    k:=0;
    repeat
      for i:=r to m-1-r do //вниз
      Begin
        Inc(k);
        If k<=Length(s) Then
        Arr[i,r]:=s[k] Else Arr[i,r]:=Char(0);
      End;
 
      for i:=r+1 to n-1-r do //вправо
      Begin
        Inc(k);
        If k<=Length(s) Then
        Arr[m-1-r,i]:=s[k] Else Arr[m-1-r,i]:=Char(0);
      End;
 
      for i:=m-1-r-1 downto r do //вверх
      Begin
        Inc(k);
        If k<=Length(s) Then
        Arr[i,n-1-r]:=s[k] Else Arr[i,n-1-r]:=Char(0);
      End;
 
      for i:=n-1-r-1 downto r+1 do //влево
      Begin
        Inc(k);
        If k<=Length(s) Then
        Arr[r,i]:=s[k] Else Arr[r,i]:=Char(0);
      End;
 
      inc(r);
    until (k=m*n); //дошли до центра
  End;
 
  //Записываем исходный текст в массив (таблицу) по строкам...
  k:=1;
  For i:=0 To m-1 Do
  If k>Length(s) Then Break Else
  For j:=0 To n-1 Do
  If Ord(Arr[i,j])<>0 Then
  Begin
    Arr[i,j]:=s[k];
    Inc(k);
    If k>Length(s) Then Break;
  End;
 
  If RadioGroup1.ItemIndex=0 Then
  Begin
    //Читаем текст из таблицы по столбцам...
    k:=1;
    For j:=0 To n-1 Do
    For i:=0 To m-1 Do
    If Arr[i,j]<>Char(0) Then
    Begin
      s[k]:=Arr[i,j];
      Inc(k);
    End;
  End Else
  Begin
    //Читаем текст из таблицы по спирали...
    r:=0;//расстояние от края до строки(столбца)
    k:=0;
    repeat
      for i:=r to m-1-r do //вниз
      If k<Length(s) Then
      begin inc(k); s[k]:=Arr[i,r]; end;
 
      for i:=r+1 to n-1-r do //вправо
      If k<Length(s) Then
      begin inc(k); s[k]:=Arr[m-1-r,i]; end;
 
      for i:=m-1-r-1 downto r do //вверх
      If k<Length(s) Then
      begin inc(k); s[k]:=Arr[i,n-1-r]; end;
 
      for i:=n-1-r-1 downto r+1 do //влево
      If k<Length(s) Then
      begin inc(k); s[k]:=Arr[r,i]; end;
 
      inc(r);
    until (k=m*n) Or (k>=Length(s)); //дошли до центра или конец строки
  End;
 
  Edit1.Text:=s; //Результат
  Finalize(Arr); //Освободим память массива
end;
 
end.