Перевод кода

[sky99]

Пожалуйста, помогите с переводом кода. У меня код на С#, а мне нужно на Delphi

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Text.RegularExpressions;

namespace Labametr1
{
    static class MetrikSpena
    {
        static List<string> arrayIdentifiers = new List<string>();
        static List<int> arraySpensCount = new List<int>();
        static List<string> arraySpensValue = new List<string>();
        static int allIdentifier;

        static public void CountMetrik()
        {
            FindIdentifier();
            CountEverySpen();
            OutputMetrik();
        }

        static void FindIdentifier()
        {
            string pattern = @"\b[_a-zA-Z][_\da-zA-Z]*\b(?=\s*=)";
            RegexOptions option = RegexOptions.None;
            Regex newReg = new Regex(pattern, option);
            foreach (string line in Program.GetArrayStringsOfCod())
            {
                foreach (Match match in newReg.Matches(line))
                {
                    arrayIdentifiers.Add(match.Value);
                    allIdentifier++;
                }
            }
        }

        static void CountEverySpen()
        {
            int count = 0;
            arrayIdentifiers.Sort();
            for (int i = 0; i < allIdentifier - 1; i++)
            {
                if (arrayIdentifiers[i] == arrayIdentifiers[i + 1])
                {
                    count++; 
                }
                else
                {
                    
                    arraySpensCount.Add(count);
                    arraySpensValue.Add(arrayIdentifiers[i]);
                    count = 0;
                }
            }
            count++;
        }

        static void OutputMetrik()
        {
            Console.WriteLine();
            Console.WriteLine("Метрик cпена: ");
            for (int i = 0; i < arraySpensCount.Count; i++)
            {
                Console.Write("Переменная {0} повторяется {1}", arraySpensValue[i], arraySpensCount[i]);
                Console.WriteLine();
            }
        }
    }
}

[Serge_Bliznykov]

Вы только половину кода привели.
Вы привели исходный текст модуля MetrikSpena.cs

И в этом коде есть обращение к методу Program.GetArrayStringsOfCod(), описание которого у Вас здесь не приведено.
исправляю упущение
Модуль Program.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
 
 
namespace Labametr1
{
    class Program
    {
        static List<string> arrayStringsOfCod = new List<string>();
 
        static public List<string> GetArrayStringsOfCod()
        {
            return arrayStringsOfCod;
        }
 
       
        static void Main(string[] args)
        {
            ReadCodFromFile();
            MetrikSpena.CountMetrik();
            Console.ReadKey();
        }
 
        public static void ReadCodFromFile()
        {
            string line;
            System.IO.StreamReader file = new System.IO.StreamReader(@"D:\lada.txt");
            while ((line = file.ReadLine()) != null)
            {
                arrayStringsOfCod.Add(line);
               
            }
            file.Close();
        }
 
    }
}