Pascal/Turbo Pascal - necesito pasar este codigo de C++ a dev-Pascal

#include <stdio.h>
#include <conio.c>
#include <fcntl.h>

int main()
{
int increment;
int increment2;
int fichier;
int voisin;
int mode=1;
int etape=0;
char touche;
char cara[1863];
char cases[1840];
char provi[1840];

fichier=open("vie.txt",O_RDONLY);
if (fichier==-1)
{
printf("Impossible d'ouvrir le fichier vie.txt\n");
printf("Verifiez qu'il est bien dans le meme\n");
printf("repertoire que l'executable");
getch();
return 1;
}
read(fichier,cara,1863);
for (increment=0,increment2=0 ; increment<1840 ; increment++,increment2++)
{
if (cara[increment2]=='1') provi[increment]='X';
else
{
if (cara[increment2]=='0') provi[increment]=' ';
else increment--;
}
}
gotoxy(1,24);
textcolor(12);
for (increment=1 ; increment<=80 ; increment++) printf("\xC4");
do
{
textcolor(14);
for (increment=0 ; increment<1840 ; increment++) cases[increment]=provi[increment];
gotoxy(1,1);
for (increment=0 ; increment<1840 ; increment++) printf("%c",cases[increment]);
for (increment=0 ; increment<1840 ; increment++)
{
voisin=0;
if (cases[increment+1]=='X') voisin++;
if (cases[increment-1]=='X') voisin++;
if (cases[increment+80]=='X') voisin++;
if (cases[increment-80]=='X') voisin++;
if (cases[increment+81]=='X') voisin++;
if (cases[increment-81]=='X') voisin++;
if (cases[increment+79]=='X') voisin++;
if (cases[increment-79]=='X') voisin++;
if (voisin==3) provi[increment]='X';
if ((voisin<2)||(voisin>3)) provi[increment]=' ';
}
textcolor(15);
gotoxy(1,25);
printf("etape %-6d",etape);
etape++;
if (mode==1)
{
gotoxy(20,25);
printf("Faites espace pour mettre en evolution automatique");
touche=getch();
if (touche==32) mode=2;
touche=0;
}
else
{
if (kbhit()) touche=getch();
gotoxy(20,25);
printf("Faites espace pour mettre en evolution manuelle ");
if (touche==32) mode=1;
sleep(50);
}

} while (touche!=27);
return 0;
}