Преобразование в Turbo Pascal

[Longif]

Подскажите, как программу на языке Си можно преобразовать в программу на языке Turbo Pascal?

//---------------------------------------------------------------------------
#pragma hdrstop
#include<conio.h>
#include<stdio.h>
#include<iostream.h>
//---------------------------------------------------------------------------
#pragma argsused
void main()

{

int a[8][8] =  { { 1, 2, 3, 4, 5, 6, 7, 8 },
                 { 1,-2, 3, 4, 5, 6, 7 ,8 },
                 { 6, 7, 4, 4,-5, 1, 2, 3 },
                 { 2, 4, 5, 6, 1, 2, 1, 8 },
                 { 9, 2, 3, 6, 4, 1, 0, 1 },
                 { 2, 1, 3, 7, 5, 8, 4,-4 },
                 { 7, 7, 2, 1, 0, 4, 5, 2 },
                 { 3, 3, 4, 2, 1, 4, 2,-1 } };

int main()

{

const int n=8;

cout<<"\nIshodna matriza a[i][j]:\n";
for (int i=0; i<n; ++i)
{
  for (int j=0; j<n; ++j) cout<<a[i][j]<<" ";

  cout<<"\n";
}

for (int i=0; i<n; ++i)
{
   bool flag = true;
   for (int j=0; j<n && flag; ++j) flag = (a[i][j] == a[j][i]);
  
   if (flag) printf ("%d stroka ravna %d stolbcu \n",i,i);
}

for (int i=0; i<n; ++i)
{
   bool flag = false;
   for (int j=0; j<n && !flag; ++j)  flag = (a[i][j] < 0);

   if (!flag) continue;

   int sum =0;
   for (int j=0; j<n; ++j)  sum+= a[i][j];

   printf ("summa otric.el. stroki %d  ravna %d \n",i,sum);
}

getch();

[ROMA2PVT]

как программу на языке Си можно преобразовать в программу на языке Turbo Pascal

Ну я думаю руками.Говорят отличный способ.