Перевод С на паскаль!

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
#define MAX_LEN 65
#define SPACE   ' '
 
 
void
write_spaces(FILE* out,int count){
    while (count--) fputc(SPACE,out);
}
 
 
int
main(void) {
 
int i,len,count,pad_size,tail_size;
FILE *f, *out;
char fn[MAX_LEN+2], result[MAX_LEN+2];
 
printf("Enter File Name: \n");
scanf("%s", fn);
 
if ((f=fopen(fn,"r"))==NULL)
{
printf("Error! This file didn't found! \n");
printf("Enter correct file name:");
scanf("%s",fn);
if ((f=fopen(fn,"r"))==NULL){printf("Try again later!\n");}
}
printf("Enter result file name: \n");
scanf("%s", result);
if ((out=fopen(result,"w"))==NULL)
{
printf("There is no file with this name!");
}
 
while ( fgets(fn,MAX_LEN,f)  )
{
 
    len = strlen(fn);
        
    if ( fn[len-1] == '\n' )
        len--;
 
    if (!len)
        continue;
 
    fn[len] = 0;
 
    for ( i = 0,count = 0; i < len; i++ )
        if ( fn[i] == ' ' ) count++;
 
    pad_size = tail_size = 0;
 
    if ( count ){
 
        pad_size = ( MAX_LEN - (len-count) ) /count;
        tail_size = ( MAX_LEN - (len-count) ) % count;
    }
 
    for ( i = 0; i < len; i++ )
        if ( fn[i] == ' ' ){
            if (--count == 0)
                pad_size += tail_size;
                write_spaces(out,pad_size);
        }
        else
            fputc(fn[i],out);
    fputc('\n',out);
 
}
 
 
fclose(f);
fclose(out);
return 0;
}