Перевод кода в паскаль

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
 
namespace Решение_сравнения
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        private void button1_Click(object sender, EventArgs e)
        {
            int a = int.Parse(textBox1.Text);
            int b = int.Parse(textBox2.Text);
            int m = int.Parse(textBox3.Text);
            while (a != m)
            {
                if (a > m) a -= m;
                if (a < m) m -= a;
            }
            if (a == 1)
            {
                a = int.Parse(textBox1.Text);
                m = int.Parse(textBox3.Text);
                int i = 1;
                while (a * i % m != b)
                {
                    i += 1;
                }
                MessageBox.Show(i.ToString());
            }
            else MessageBox.Show("а и m взаимно не просты");
        }
 
        private void button2_Click(object sender, EventArgs e)
        {
            ulong a = ulong.Parse(textBox1.Text);
            ulong b = ulong.Parse(textBox2.Text);
            ulong m = ulong.Parse(textBox3.Text);
            int l = phi((int)m) - 1;
            double t1=(b*(pow(a,l)))%m;
            //ulong t = Convert.ToUInt64(t1);
            //double k=(t*b)%m;
            //MessageBox.Show("X="+k.ToString());
            MessageBox.Show(t1.ToString());
        }
        int phi(int n)
        {
            int result = n;
            for (int i = 2; i * i <= n; ++i)
                if (n % i == 0)
                {
                    while (n % i == 0) n /= i;
                    result -= result / i;
                }
            if (n > 1)
                result -= result / n;
            return result;
        }
        double pow(double a, int n)
        {
            if (n == 0) return 1;
            else return a * pow(a, n - 1);
            
        }
    }
}