Перевести с си++ на паскаль

Доброго времени суток,спешу обратиться к вам за помощью. У меня есть программа на си и необходимо перевести ее на паскаль. А поскольку в си я не очень то обращаюсь к вам.

Собственно вот программа:
#include <fstream>
#include <string>
#include <string.h>
#include <vector>
#include <algorithm>

using namespace std;

ifstream cin("input.txt");
ofstream cout("output.txt");

vector<int> v;

int solve(int p)
{
if (p == 0)
return 0;
int l = 0, r = v.size() - 1;
while (r - l > 1)
{
int x = (l + r) / 2;
if (v[x] > p)
r = x - 1;
else
l = x;
}
if (v[r] <= p)
l = r;
if (p % v[l] == 0)
return p / v[l];
else
return p / v[l] + 1;
}

int main()
{
int n, m;
cin >> n >> m;
v.push_back(1);
for (int i = 0; i < m; i++)
{
int q;
cin >> q;
v.push_back(q);
}
sort(v.begin(), v.end());
string s;
cin >> s;
int cnt = 0;
int g = 0;
for (int i = 0; i < n; i++)
{
if (s == 'X')
{
cnt += solve(g);
g = 0;
}
if (s == 'O')
g++;
}
cnt += solve(g);
cout << cnt;
return 0;
}

Заранее благодарен