怎么将这段C代码转为的Delphi的？

Question

#include<stdio>
main()
{
short df[20000];
Word16 buf[4096]; 
Word16 pm[180];
Word16 frame_length,mode;

Word16  curarray[2];//curch,curbit;
int i,j,k;
void *st;
Word16 ch=1;
FILE *fp;

fp=fopen("abnormality.enc","rb");
fread(&j,4,1,fp);
fread(buf,2,j,fp);
fclose(fp);
fp=fopen("abnormality.pcm","wb");
if(1)
    k=j/11;
else
k=j*16/177;
Init_decoder(&st);
curarray[0]=0;curarray[1]=15;
for(i=0;i<k;i++)
{
        decoder(buf, curarray, df, st);
for(j=0;j<320;j++)df[j]=df[j]&0xffc0;
fwrite(df,2,320,fp);
if(0)
{
if(curarray[1]==0)
{
curarray[1]=15;
curarray[0]++;
}
else
curarray[1]--;
}
}
fclose(fp);}
着是一段调用音频解压文件的代码 ，这段代码中的文件存取我不知道着呢们转为Delphi的！请高人指点！我试了几个函数文件流的，参数都是var型指针！都不能用啊！
我的QQ：34483703
谢谢 各位了！