нужна помошь с переводом из C# на Delphi, реализовать самому не получилось

/// <summary>
/// </summary>
/// <param name="mm">Матрица задающая СЛАУ</param>
/// <returns>Вектор решений</returns>
public static Row Gauss(Matrix mm)
{
    /// Масска для восстановления изначального порядка
    /// неизвестных
    int[] mask = new int[mm.rowCount];
    for (int i = 0; i < mm.rowCount; i++)
        mask[i] = i;
 
    /// Прямой проход
    for (int i = 0; i < mm.rowCount; i++)
    {
        int maxIndx = i;
        double maxval = mm[i,i];
 
        /// Поиск главного элемента в строке
        for (int j = i+1; j < mm.colCount - 1; j++)
            if (Math.Abs(maxval) < Math.Abs(mm[i, j]))
            {
                maxval = mm[i, j];
                maxIndx = j;
            }
 
        if (maxval == 0)
        {
            Row x = new Row(mm.rowCount);
            for (int ii = 0; ii < mm.rowCount; ii++)
                x[ii] = double.NaN;
            return x;
        }
 
        /// Перестановка столбцов
        if (i != maxIndx)
        {
            mm.ExchangeColumns(i, maxIndx);
            int tmp = mask[i];
            mask[i] = mask[maxIndx];
            mask[maxIndx] = tmp;
        }
 
        /// Делим строчку на главный элемент
        mm[i] = mm[i] / maxval;
 
        /// Вычетаем текущую строчку
        /// (предварительно домножив) из ниже стоящих строк
        for (int j = i + 1; j < mm.rowCount; j++)
            mm[j] = mm[j] - mm[j, i] * mm[i];
    }
 
    // Обратный проход
    for (int i = mm.rowCount - 1; i >= 0; i--)
    {
        /// Вычетаем текущую строчку
        /// (предварительно домножив) из выше стоящих строк
        for (int j = i - 1; j >= 0; j--)
            mm[j] = mm[j] - mm[j, i] * mm[i];
    }
 
    /// Восстановление порядка вхождения неизвестных
    /// и формирование результирующего вектора
    Row res = new Row(mm.rowCount);
    for (int i = 0; i < mm.rowCount; i++)
        res[mask[i]] = mm[i, mm.colCount - 1];
    return res;
}