из Turbo C++ в Паскаль

[Jondeer]

Здравствуйте!!!! Помогите пожалуйста переписать программу из Turbo C++ в Паскаль! Сам не могу, с Паскалем дело не имел!!

КОД:
#include <stdio.h>
#include <math.h>
#include <stdlib.h>
typedef
float vect[100];
typedef
vect matr[100];

void vvod(vect A[],int* n,int* m,FILE *fin)
{
int i,j;
fscanf(fin,"%d%d\n",& *n,& *m);
for(i=0;i< *n;i++)
{
for(j=0;j< *m;j++)
fscanf(fin,"%f",&A[i][j]);
fscanf(fin,"\n");
}
}


float max(vect A[ ],int n,int m)
{
int i,j;
float max;
max=A[1][1];
for(i=0;i<n;i++)
for(j=0;j<m;j++)
if(A[i][j]>max)
max=A[i][j];
return max;
}
float min(vect A[ ],int n,int m)
{
int i,j;
float min;
min=A[1][1];
for(i=0;i<n;i++)
for(j=0;j<m;j++)
if(A[i][j]<min)
min=A[i][j];
return min;
}
void zamena(vect A[],int n,int m)
{
int i,j;
for(i=0;i<n;i++)
for(j=0;j<m;j++)
if(A[i][j]>0)
A[i][j]=1;
else
if(A[i][j]<0)
A[i][j]=0;
}
void vlolvod(vect A[],int n,int m,FILE *fout)
{
int i,j;
for(i=0;i<n;i++)
{
for(j=0;j<m;j++)
fprintf(fout,"%5.2f",A[i][j]);
fprintf(fout,"\n");
}
}
void main()
{
matr A;
float minz,maxz,P;
int n,m;
FILE *in,*out;
in=fopen("C:\\in.txt","r");
out=fopen("C:\\out.txt","w");



fscanf(in,"%f",&P);
vvod(A,&n,&m,in);
maxz=max(A,n,m);
minz=min(A,n,m);
if(maxz-minz>P)
{
zamena(A,n,m);
fprintf(out,"Matriza izmenena\n");
vlolvod(A,n,m,out);
}
else
fprintf(out,"raznost' ne privlolshaet P!");
fclose(out);
fclose(in);
}