Переписать прогу с С++ на паскаль

/**********************************************************\
|* Программа для совершения некоторых действий с матрицей *|
\**********************************************************/

// размер
const int SIZE = 5;
// непосредственно матрица
double matrix[SIZE][SIZE];
// результирующая матрица
double res[SIZE][SIZE];
// построение матрицы по некоторому условию
void m_init(){
    for (int i = 0; i < SIZE; i++)
        for (int j = 0; j < SIZE; j++)
            matrix[j] = (i == j) ? (1.5 * i * i + j * j) : ((i * i - j * j) / 2.1);
}

// нахождение максимального элемента в матрице
double m_max()
{   double max = 0;
    for (int i = 0; i < SIZE; i++)
        for (int j = 0; j < SIZE; j++)
            if (matrix[j] > max)
                max = matrix[j];
    return max;

}

// поэлементное перемножение строк. именно строк, а не строки и столбца,
// т.к. матрица умножается на саму себя в транспонированном виде
double str_comp_t(int n1, int n2)
{
    double ret = 0;
    for (int i = 0; i < SIZE; i++)
        ret += matrix[n1] * matrix[n2];
    return ret;
}

// перемножение матрицы на саму себя в транспонированном виде
void m_comp_t()
{
    for (int i = 0; i < SIZE; i++)
        for (int j = 0; j < SIZE; j++)
            res[j] = str_comp_t(i, j);
}

// умножение матрицы на константу
void m_comp_c(int c)
{
    for (int i = 0; i < SIZE; i++)
        for (int j = 0; j < SIZE; j++)
            res[j] = matrix[j] * c;
}

int main()
{
    double max;
    m_init();
    max = m_max();
    (max > 10) ? m_comp_t() : m_comp_c(max);
    return 0;
}