Необходимо перевести небольшой код из Visual c++ в Delphi
можно только 1 и 5 строчку

1 for(;l3 && (part2remain > 0);l3--) {
2 struct newhuff *h = htc+gr_info->count1table_select;
3 register short *val = h->table,a;
4
5 while((a=*val++)<0) {
6 part2remain--;
7 if(part2remain < 0) {
8 part2remain++;
9 a = 0;
10 break;
11 }


if (get1bit())


val -= a;


}

И еще

int mc, *m;

mc=*m++