Помогите переписать на паскаль

#include <iostream>
#include <ctime>
#include <time.h>
using namespace std;
 
const int N = 10000; //количество чтений каждого блока
 
//возвращает кол-во элементов в массиве
#define _countof(_Array) (sizeof(_Array)/sizeof(_Array[0]))

//возвращает кол-во элементов типа long в блоке размером kb килобайт
#define COUNT(kb) (kb*1024/sizeof(long))

long size[] = {1,2,8,32,64,128,256,512}; //массив с размерами блоков
long *arrays[ _countof(size) ]; //массив указателей на блоки
 
 
// создаёт блоки и инициализирует их согласно условию задачи
void initArrays()
{
        for(int i=0; i<_countof(size); i++)
        {
                arrays = new long[ COUNT(size) ];
                for(int j=0; j<COUNT(size); j++)
                        arrays[j] = long ( arrays + j + 1 );
        }
}
 
 
// возвращает время, потраченное на прохождение блока arr размера size
long getTime(long *arr, int size)
{
        long *ptr, time = clock();
        for(int n=0; n<N; n++)
        {
                ptr = arr;
                for(int i=0; i<COUNT(size); i++)
                {
                        ptr = (long*)(*ptr);
       
                }
        }
        return (clock()-time);
}
 
 
int main()
{
//      char timeSr[9];
//      cout << timeSr << endl;
        initArrays();
        cout <<"количство блоков: "<< _countof(size)<< endl;
        for(int i=0; i<_countof(size); i++)
               
                cout << size << " kb: " << getTime(arrays, size) << "ms\n";
}