请教c转dephi~~~

Question

c:  #include "stdio.h"main()
{
int i=0;
static float A[7]={0,100,500,1000,5000,10000,100000};
static float B[7]={0,1.5,5.9,9.9,29.9,42.4,87.4};
static float R[7]={0.015,0.011,0.008,0.005,0.0025,0.0005,0.0001};
float ZBF=0;
float FWF=0;begin: printf("\n\n\n请输入：");
scanf("%f",&ZBF); if(ZBF<A[0])
{printf("\n输入错误，请重新输入！");
goto begin;} if(ZBF<=A[1]) i=0;
else if(ZBF<=A[2]) i=1;
else if(ZBF<=A[3]) i=2;
else if(ZBF<=A[4]) i=3;
else if(ZBF<=A[5]) i=4;
else if(ZBF<=A[6]) i=5;
else i=6;
FWF=B[i]+(ZBF-A[i])*R[i];
printf("\n结果为：%.4f ",FWF);

goto begin;
}在delphi里定义数组该在什么地方？type下？
用a:array[1..7] of float;?
定义float类型不会有错吧？给数组里每个元素赋值我用a[1]:=0;...........对不对？
在函数里引用数组里某个元素能不能直接用a[1]?大侠写个完整的给我看看吧~谢谢先~我已经一头雾水了。谢谢~~~~