Помогите перевести в Turbo Pascal из С++.... прошу.

1.
#include <conio.h>
#include <iostream.h>
#include <stdlib.h>
#include <string.h>
#include <windows.h>
char buf[100];
int N;
int* array;
char str[3];
char* rev;
float _itoa;
void message(const char* msg)
{ CharToOem(msg, buf);
cout<<buf;}
int RangedRand( int range_min, int range_max)
{return (double)rand()/(RAND_MAX+1)*(range_max-range_min)+range_min;}
int main(void)
{
message("N=");
cin>>N;
array=(int*)malloc(N*sizeof(int));
message("Заполнение случайными элм:");
cout<<endl;
srand(9);
for (int i=0; i<N; i++)
{
array=RangedRand(10, 10000);
cout<<array<<" ";
}
cout<<endl;
message("Измененная Матрица:");
cout<<endl;
for (int i=0; i<N; i++)
{
itoa(array, str, 10);
rev=strrev(str);
array=atoi(rev);
cout<<array<<" ";
}

delete [] array;
getch();
return 0;
}

2.
#include <iostream.h>
#include <stdlib.h>
#include <conio.h>
#include <windows.h>
#include <stdio.h>

char buf[50];
int* parray;
int** array;
int N, M;
int count;
int i,j;
void message(const char* msg)
{
CharToOem(msg, buf);
cout<<buf;
}

int main(void)
{
message("N=\nM=");
cin>>N>>M;
cout<<endl;
array=(int**)malloc(N*sizeof(int*));
parray=(int*)malloc(M*N*sizeof(int));
for (i=0; i<N; i++)
*(array+i)=parray+i*M;
message("Введите матрицу");
cout<<endl;
for (i=0; i<N; i++)
for (j=0; j<M; j++)
cin>>array[j];
for (i=0; i<N; i++)
for (j=0; j<M; j++)
if (array[j]==0)
{
count++;
break;
}
printf("tabloul initial: \n");
for (i=0;i<N;i++){
for (j=0;j<M;j++)
printf("%d",array[j]);printf("\n");}
message("Нуль встречается в ");
cout<<count<<" ";
message("строках");
getch();
return 0;}



Если не трудно, помогите пожалуйста..