Перевести код из C++ в Паскаль

#include "pch.h"
#include <iostream>
#include <iomanip>
using namespace std;
 
 
void printMenu();
void fillKeyArr(double** a, int n, int m);
void fillRandArr(double** a, int n, int m);
void sumElem(double** a, int n, int m);
void delMem(double** a, int n);
 
int main()
{
    setlocale(LC_ALL, "rus");
    int menu, n, m;
    cout << "Введите количество строк: ";
    cin >> n;
    cout << "Введите количество столбцов: ";
    cin >> m;
    cout << endl;
    
    //создание динамического двумерного массива
    double **a = new double*[n]; //строк в массиве
    for (int i = 0; i < n; i++)
        a[i] = new double[m];//столбцов в массиве
 
    printMenu();
    do
    {
        cout << "Введена команда: ";
        cin >> menu;
        cout << endl;
        switch (menu)
        {
        case 1:
            cout << "Полученный массив: \n\n";
            fillRandArr(a, n, m);
            cout << "\n***************" << endl;
            break;
        case 2:
            cout << "Введите " << n*m << " чисел :  \n\n";
            fillKeyArr(a, n, m);
            cout << "\n***************" << endl;
            break;
        case 3:
            sumElem(a, n, m);
            cout << "\n***************" << endl;
            break;
        case 4:
            cout << "Выход из программы" << endl;
            cout << "\n***************" << endl;
            break;
        default:
            cout << "Некорректный ввод. Повторите запрос!" << endl;
            cout << "\n***************" << endl;
            break;
        }
    } while (menu != 4);
    delMem(a, n);
    return 0;
}
void printMenu()//меню
{
    cout << "==============================================================================" << endl;
    cout << "Выберите необходимое действие из представленных ниже: " << endl;
    cout << "1. Заполнить массив случайными числами и вывести его на экран." << endl;
    cout << "2. Заполнить массив с клавиатуры и вывести его на экран." << endl;
    cout << "3. Вывести сумму элементов каждой строки, в которых нет отрицательных чисел." << endl;
    cout << "4. Выход." << endl;
    cout << "==============================================================================" << endl;
}
 
void fillRandArr(double** a, int n, int m)// заполнение массива рандомными числами от -5 до 5, нумерация строк и столбцов, вывод на экран
{
    cout << "      ";
    for (int st = 0; st < m; st++)//нумерация столбцов
        cout << setw(3) << st + 1 << " ";
    cout << endl << endl;
    for (int i = 0; i < n; i++)
    {
        cout << setw(3) << i + 1 << "   ";//нумерация строк
 
        for (int j = 0; j < m; j++)
        {
            a[i][j] = rand() % 11 + (-5);
            cout << setw(3) << a[i][j] << " ";
        }
        cout << endl;
    }
}
void fillKeyArr(double** a, int n, int m)//заполнение массива с клавиатуры, нумерация строк и столбцов, вывод на экран
{
    //заполнение массива
    for (int i = 0; i < n; i++)
    {
        for (int j = 0; j < m; j++)
        {
            cout << "a[" << i << "][" << j << "] = ";
            cin >> a[i][j];
        }
    }
    //вывод массива
    cout << "Полученный массив: " << endl;
    cout << "      ";
    for (int st = 0; st < m; st++)//нумерация столбцов
        cout << setw(3) << st + 1 << " ";
    cout << endl << endl;
    for (int i = 0; i < n; i++)
    {
        cout << setw(3) << i + 1 << "   ";//нумерация строк
 
        for (int j = 0; j < m; j++)
        {
            cout << setw(3) << a[i][j] << " ";
        }
        cout << endl;
    }
}
void sumElem(double** a, int n, int m)//сумма элементов в строках, в которых нет отрицательных чисел
{
    int p, t = 0;
    double sum;
    for (int i = 0; i < n; i++)
    {
        p = 0;
        sum = 0.0;
        for (int j = 0; j < m; j++)
        {
            if (a[i][j] < 0)
            {
                p++;
                break;
            }
            else
                sum += a[i][j];
        }
        if (p == 0)
        {
            t++;
            cout << "Сумма элементов в строке № " << i + 1 << " = " << sum << endl;
        }
    }
    if (t == 0)
        cout << "Во всех строках присутствуют отрицательные элементы" << endl;
}
void delMem(double** a, int n)//освобождение памяти
{
    for (int i = 0; i < n; i++)
        delete[] a[i];
    delete[] a;
}