Как будет выглядеть код, написанный на Си в Паскале

#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <time.h>
 
void load (int * ar_p, FILE* tFile)
{
    int i=0;
    for (i=0; i<12; i++)
    {
        fscanf(tFile," %d ",(ar_p + (i)));
    }
}
 
void print (int * ar_p, FILE* tFile)
{
    int i;
    for (i=0; i<12; i++)
    {
        fprintf(tFile,"%d ",*(ar_p + i));
    }
    fprintf(tFile,"\n");
}
 
int compare (const void* p1, const void* p2)
{
    return ( *( int*)p1 - *( int*)p2 );
}
 
void pr3()
{
    int X[12]={0}, Y[12]={0}, Z[12]={0}, i;
    FILE * tFile;
    int * rtab[3]={X,Y,Z};
    tFile = fopen("input.txt", "r");
    for (i=0; i<3; i++)
    {
        load(rtab[i], tFile);
    }
    fclose(tFile);
    tFile = fopen("output.txt", "w");
    for (i=0; i<3; i++)
    {
        qsort(rtab[i], 12, sizeof(int), compare);
        print(rtab[i], tFile);
    }
    printf("\nTask execution complete\nResulting matrix is stored in output.txt");
}
 
void pr6()
{
    int letters[26]={0}, n=0, cur;
    float res;
    FILE * tFile;
    tFile = fopen("input.txt", "r");
    do
    {
        cur=fgetc(tFile);
        if (isalpha(cur))
        {
            n++;
            cur=tolower(cur);
            letters[cur-97]+=1;
        }
    }
    while (!(feof(tFile)));
    fclose(tFile);
    tFile = fopen("output.txt", "w");
    for (cur=0; cur<26; cur++)
    {
        if (letters[cur])
        {
            res=letters[cur];
            res=(res/n)*100;
            fprintf(tFile,"%c: %.2f%%\n", cur+97, res);
        }
    }
    printf("\nTask execution complete\nResulting table of characters is stored in output.txt");
}
 
void pr11()
{
    FILE * tFile;
    tFile = fopen("output.txt", "w");
    int digr[10]={0}, i, g;
    srand(time(NULL));
    for (i=0;i<100;i++)
        digr[rand()%10]++;
    for (i=0;i<10;i++)
        digr[i]=((digr[i]+(5/2))/5);
    for (i=20;i>0;i--)
    {
        for (g=0;g<10;g++)
            {
                if (digr[g] >= i)
                    fprintf(tFile, "* ");
                else
                    fprintf(tFile, "  ");
            }
        fprintf(tFile, "\n");
    }
    fprintf(tFile, "1 2 3 4 5 6 7 8 9 10");
    printf("\nTask execution complete\nResulting diagram is stored in output.txt");
}
 
int main()
{
    int x;
    printf("Select program\nPrograms available: 3, 6, 11\n");
    scanf("%d",&x);
    switch(x)
    {
        case 3:
            pr3();
            break;
        case 6:
            pr6();
            break;
        case 11:
            pr11();
            break;
        default:
            printf("Unknown task, exiting program");
            break;
    }
    return 0;
}