помогите перевести их c++ в паскаль пожалйуста

#include <iostream>
#include <cstdlib>
#include <cmath>
#include <ctime>
using namespace std;
int main()
{
setlocale(LC_ALL, "Rus");
srand(time(NULL));
int N, K, qual;
cout << "Введите количество учеников : ";
cin >> N;
cout << "Введите количество предметов : ";
cin >> K;
int **Arr = new int*[N];
for (int i = 0; i < 10; i++){
Arr[i] = new int[K];
}
for (int i = 0; i < N; i++){
cout << "Ученик " << i + 1 << " : ";
for (int j = 0; j < K; j++){
Arr[i][j] = 2 + rand() % 4;
cout << Arr[i][j] << "\t";
}
cout << endl;
}
qual = 0;
for (int i = 0; i < N; i++){
for (int j = 0; j < K; j++){
if (Arr[i][j] == 5){
qual++;
break;
}
}
}
qual = N - qual;
cout << "Количество учеников , не получивших ни одной 5 : " << qual << endl;
for (int i = 0; i < 10; i++){
delete[] Arr[i];
}
delete[] Arr;
system("Pause");
return 0;
}