Нужно перевести код из с++ в pascal

#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,min,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;
}