Графы., Построение матрицы расстояний в графе, определение диаметра, радиуса Опции

[Юлия92]

День добрый нужна помощь в переводи с языка с на паскаль программки одной.,так как пока только знаю паскаль и немного делфи...си вообще не знаком

#include <stdio.h>
#include<stdlib.h>
#include<dir.h>
#include<string.h>
#include<fstream.h>
#include<conio.h>
#include<fstream.h>
#include <conio.h>
void main(){
int i,j,n;
int a[5][5];
int b[5][5];
clrscr();
ifstream inp_file("input.txt");
if (!inp_file)
		{ printf("Error!!! File not found! Press any  key to exit");
		  getch();
		  exit(1);
		}
if (inp_file)
	{
	inp_file>>n;
	for (int i=0;i<n;i++)
		for (int j=0;j<n;j++)
			inp_file>>a[i][j];
	}
inp_file.close();

printf("Ishodnaya matrica \n\n");
for (i=0;i<5;i++)
	{
	printf("\n");
	for (j=0;j<5;j++)
		{
		b[i][j]=a[i][j];
		printf("%3i",a[i][j]);
		}
	}
int flag;
while (flag)
	{
	flag=0;
	for (i=0;i<5;i++)
		for (j=0;j<5;j++)
			 if((i!=j)&&a[i][j])
			 for(int k=0;k<5;k++)
			 if(k!=i&&k!=j&&a[j][k]&&(a[i][k]==0||a[i][k]>a[i][j]+a[j][k]))
				{
				a[i][k]=a[i][j]+a[j][k];
				flag=1;
				}
	}
int max=0;
int r[5];
for (i=0;i<5;i++) r[i]=0;
for (i=0;i<5;i++)
  for (j=0;j<5;j++)
    if (a[i][j]>max) max=a[i][j];
printf("\n\nDiametr raven %i;\n",max);
for (i=0;i<5;i++)
  for (j=0;j<5;j++)
    if (a[i][j]>r[i]) r[i]=a[i][j];
for (i=0;i<5;i++) printf("\nExcentrisitet ь%i is %i;",i+1,r[i]);

int min=9999;
for (i=0;i<5;i++)
	if (min>r[i]) min=r[i];
printf("\n\nRadius raven %i;\n",min);

printf("\n\nCentralnaye vershini:\n");
for (i=0;i<5;i++)
   if (r[i]==min) printf("%i \n",i,r[i]);
getch();
}