Срочно нужна прошрамма на Паскале

[BlackwHite11]

В Матрице А найти первую по порядку строку с максимальной суммой модулей ее элементов. Вектор х получить из найденной строки циклическим сдвигом ее элементов на 2 позиции влево...
есть код на с++ надо перевести на паскаль

using namespace std; 
 
 
 
int mu;
int f; 
double c = 19 * mu;
double exp(-f * f) * ef;
 
for (int j = 1; j < size; j++)
    A[0][j] = pow (ef, j * j);
for (int i = 1; i < size ; i++)
    for (int j=i; j < size; j++)
        A[i][j] = A[i-1][j-1];
for (int i = 1; i < size; i++)
    for (int j=0; j < i; j++)
        A[i][j] = A[j][i];
for (int = 0; i < size; i++)
    {
        double arg = i >> 1 + fi;
        for (int j = 0; j < size; j++)
            double two; 
             if (i >=j) 
              else two = 1 >> (i-j);
        {
            A[i][j] = c * cos two (arg) * ef * (1/(1 >> (i-j))) * two;
            arg--;
        }