Pascal файл прямого доступа

[AfeR]

Здравствуйте. Я изучал С , а теперь нужно то же самое написать на pascal.
Не поможете?
Заранее спасибо.
Вот код на С:

#include <stdio.h>
#include <stdlib.h>
#include <mem.h>
#include <string.h>

#define LINE struct tline
#define MAX_LINES 50
#define FILENAME "!table.dat"

FILE *myfile,*myfile1;

LINE {int nfil,cap; char name[15];};

int lcol,i;

int lnum(FILE *fl)
{
  fseek(fl,0L,SEEK_END);
  return ftell(fl)/sizeof(LINE);
}

int fwiev(char *myfl)
{
  LINE tcln;
  int num;
  if((myfile=fopen(myfl,"r"))!=NULL)
  {
    num=lnum(myfile);
    fseek(myfile,0L,SEEK_SET);
    for(i=0;i<num;i++)
    {
      fread(&tcln,sizeof(LINE),1,myfile);
      printf("%s \t | %d \t |  %d \t |\n",tcln.name,tcln.nfil,tcln.cap);
    }
    fclose(myfile);
    return 0;
  } else return 1;

}

int ltable()
{
  printf("\n");
  printf("----------------------------------\n");
  printf("Bank\t\t |Filials|Capital|\n");
  printf("----------------------------------\n");

  if(fwiev(FILENAME)!=0) {printf("\nSTOP! File is corrupted\n");return 1;}
}

void p1()
{
  LINE tcln;
  int imax,max;

  myfile=fopen(FILENAME,"r");

  lcol=lnum(myfile);

  fseek(myfile,0L,SEEK_SET);

  fread(&tcln,sizeof(LINE),1,myfile);
  max=tcln.nfil;
  imax=0;

  for(i=1;i<lcol;i++)
  {
    fread(&tcln,sizeof(LINE),1,myfile);
    if(tcln.nfil>max) {max=tcln.nfil; imax=i;}
  }

  fseek(myfile,imax*sizeof(LINE),SEEK_SET);
  fread(&tcln,sizeof(LINE),1,myfile);

  fclose(myfile);

  printf("\nPART 1:\n");
  printf("%s \t | %d \t |  %d \t |\n",tcln.name,tcln.nfil,tcln.cap);
}

void p2()
{
  LINE tcln;

  printf("\nPART 2:\n");

  myfile=fopen(FILENAME,"r");

  fseek(myfile,0L,SEEK_SET);
  for(i=0;i<lcol;i++)
  {
    fread(&tcln,sizeof(LINE),1,myfile);
    if(tcln.cap>50) {printf("%s \t | %d \t |  %d \t |\n",tcln.name,tcln.nfil,tcln.cap);}
  }

  fclose(myfile);
}

void p3()
{
  LINE tcln;
  LINE ttcln;
  int j,lcol1;

  printf("\nPART 3:\n");
  printf("\nNot sorted statement:\n");

  myfile=fopen(FILENAME,"r");
  myfile1=fopen("!out.dat","w");

  fseek(myfile,0L,SEEK_SET);
  fseek(myfile1,0L,SEEK_SET);
  for(i=0;i<lcol;i++)
  {
    fread(&tcln,sizeof(LINE),1,myfile);
    if(tcln.cap<90) fwrite(&tcln,sizeof(LINE),1,myfile1);
  }
  fclose(myfile);
  fclose(myfile1);

  fwiev("!out.dat");

  myfile1=fopen("!out.dat","r+");

  lcol1=lnum(myfile1);

  fseek(myfile1,0L,SEEK_SET);

  for(i = lcol1-1 ; i > 0 ; i--)
   {
    for(j = 0 ; j < i ; j++)
     {
       fseek(myfile1,j*sizeof(LINE),SEEK_SET);
       fread(&tcln,sizeof(LINE),1,myfile1);

       fseek(myfile1,(j+1)*sizeof(LINE),SEEK_SET);
       fread(&ttcln,sizeof(LINE),1,myfile1);

       fseek(myfile1,j*sizeof(LINE),SEEK_SET);
       if(strcmp(tcln.name,ttcln.name)<0)
       {fwrite(&ttcln,sizeof(LINE),1,myfile1);fwrite(&tcln,sizeof(LINE),1,myfile1);}
     }
   }
   fclose(myfile1);

   printf("\nSorted statement:\n");
   fwiev("!out.dat");
}

main()
{
if(!ltable()) {p1();p2();p3();}
}

[_-Re@l-_]

С таким во фриланс надо...
Вы лучше скажите, с чем у вас здесь проблемы

[L_Killer]

AfeR, слушай, ты бы лучше объяснил конкретную задачу и, может быть, мы бы ее решили. Я бы попробовал
А С я вообще не знаю.