Перевод кода с Delphi на C#

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
 
namespace _2_3_лабка
{
 
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        string[,] a = new string[6, 2];//содержит условную часть правил
        string[] b = new string[6];//содержит заключительную часть правил
        string[] x = new string[10];//рабочая память
 
        int M;
        int[] z = new int[6];//содержит число условий для каждого правила
        int[] d = new int[6];//формирует признаки использовано правило или нет
 
        int i;
        int j;
        string r;
 
        int k1;
        int k2;
        int k3;
 
        private void Form1_Load(object sender, EventArgs e)
        {
 
            for (int i = 0; i < 6; i++)//очистка массивов
            {
                for (int j = 0; j < 2; j++)
                {
                    a[i, j] = " ";
                }
 
                d[j] = 0;
            }
 
            a[0, 0] = "идти на концерт";//задание условной части правил
            a[1, 0] = "идти на концерт";
            a[2, 0] = "идти на концерт";
            a[3, 0] = "идти на концерт";
            a[4, 0] = "подготовить костюм";
            a[5, 0] = "купить билеты";
            a[6, 0] = "идти на концерт";
 
            a[1, 1] = "освободить вечер";
            a[2, 1] = "пригласить подругу";
            a[5, 1] = "пригласить подругу";
            a[6, 1] = "подготовить костюм";
 
            a[5, 2] = "сделать макияж";
            a[6, 2] = "подготовить туфли";
 
            b[0] = "пригласить подругу";//задание заключительной части правил
            b[1] = "подготовить костюм";
            b[2] = "купить билеты";
            b[3] = "подготовить туфли";
            b[4] = "освободить вечер";
            b[5] = "настроение отличное";
            b[6] = "сделать макияж";
 
            z[0] = 1;//число условий в условной части правил
            z[1] = 2;
            z[2] = 2;
            z[3] = 1;
            z[4] = 1;
            z[5] = 3;
            z[6] = 3;
 
            for (int i = 0; i < 6; i++)//формирование правил
            {
                r = " ";
                r = r + "ЕСЛИ ";
 
                for (int j = 0; j < z[i]-1; j++)
                {
                    if (j < z[i] - 1)
                    {
                        r = r + a[i, j] + " И ";
                    }
 
                    else
                    {
                        r = r + a[i, j];
                    }
                }
 
                r = r + "  ТО  " + b[i];
                textBox1.Text = r;//отображение правила в richtextbox
            }
        }
 
        private void button1_Click(object sender, EventArgs e)
        {
            x[0] = textBox6.Text;//занесение исходных данных в рабочую память
            M = 0;
            textBox2.Text = x[0];
            k3 = 0;
 
            if (k3 < 7)//проверка - все ли правила применены
            {
                aa();
            }
 
            else
            {
                textBox4.Text = r;//вывод результата
            }
        }
 
        void aa()
        {
 
            for (int i = 0; i < 6; i++)//цикл по числу правил
            {
                if (d[i] == 0)
                {
                    k2 = 0;
 
                    for (int j = 0; z[i] < -1; j++)//цикл по числу условий в правиле
                    {
                        k1 = 0;
                        for (int k = 0; k < M; k++)
                        {
                            if (a[i, j] == x[k])//проверка – содержится ли условие в РП
                            {
                                k1 = k1 + 1;
                                k2 = k2 + 1;
                                k = M + 1;
                            }
                        }
 
                        if (k1 == 0)
                        {
                            j = z[i];//досрочный выход из цикла
                        }
 
                        else
                        {
                            if (k1 == 1 && k2 == z[i])//проверка – все ли условия правила есть в РП
                            {
                                k3 = k3 + 1;
 
                                if (k3 < 7)
                                {
                                    M = M + 1;
                                    x[M] = b[i];//занесение заключительной части правила в РП
                                    textBox2.Text = x[M];
                                    d[i] = 1;//отметка, что правило применено
                                }
 
                                else
                                {
                                    r = b[i];//запоминание заключительной части последнего правила
                                }
                            }
                        }
                    }
                }
            }
        }
    }
}