перевести с++ в pascal

[ApXaHreL]

#include <iostream>
#include <ctime>
#include <cmath>

using std::cout;
using std::cin;
using std::endl;

int main()
{
setlocale(LC_ALL,"Russian");
int size,db=1,count_min=0,count_max=0,m in,max;
int i,j,temp,sum=0;
srand((unsigned)time(NULL));
int *arr;
cout<<"Введите розмер массива: ";
cin>>size;
arr = new int[size];
cout<<"Массив: ";
for(i=0; i<size; i++)
{
arr[i]=rand()%99-10;
cout<<arr[i]<<" ";
if(arr[i]>0)
{
sum+=arr[i];
}
}
max = abs(arr[0]);
min = abs(arr[0]);
for(i=0; i<size; i++)
{
if (abs(arr[i])>max)
{
max = abs(arr[i]);
count_max=i;
}
if (abs(arr[i])<min)
{
min = abs(arr[i]);
count_min=i;
}
}
cout<<endl;
cout<<"Маkсимум "<<count_max+1<<" елемент"<<endl;
cout<<"Минимум "<<count_min+1<<" елемент"<<endl;
cout<<"Произведение: ";
(count_max>count_min)? i=count_min+1 : i=count_max+1;
(count_max>count_min)? j=count_max : j=count_min;
for(i; i<j; i++)
{
db*=arr[i];
}
cout<<db<<endl;
cout<<"Новый массив: ";
for(i=0; i<size; i++)
{
for(j=i; j<size; j++)
{
if(abs(arr[i])>abs(arr[j]))
{
temp=arr[i];
arr[i]=arr[j];
arr[j]=temp;
}
}
}
for(i=0; i<size; i++)
{
cout<<arr[i]<<" ";
}
cout<<endl;
cout<<"Сумма положытельных елементов - "<<sum<<endl;
delete [] arr;
system("pause");
return 0;
}

[ApXaHreL]

тему можно закрывать, ответ получен