大家帮帮忙C变DELPHI

if(h>hg)
    {   p1->x=1.5 ;goto loop20 ;}  “这句C怎么写成DELPHI？LOOP在DELPHI里怎
    else                               么定义？带LOOP的都帮忙翻译一下“ 
    {   tb=h/s ;
        loop700 :
        gf=0.0 ;
        for(i1=0;i1<=4;i1++){gf=gf+w[i1]*pow((tb*0.01),i1);}
        p1->t=(h-gf)/s-273.15 ;
        if(fabs(p1->t-tb)<0.001)goto loop250 ;
        tb=p1->t ;
        goto loop700 ;
        loop250 :
        p1->p=psk(p1->t);
        ptg(p1->p,p1->t,&ptg2);
        vg=ptg2.v ;
        hg=ptg2.h ;
        ptf(p1->p,p1->t,&ptf2);
        vf=ptf2.v ;
        hf=ptf2.h ;
        p1->x=(h-hf)/(hg-hf);
        p1->v=vf+p1->x*(vg-vf);
        goto loop1000 ;
    }