[greenMaks]

Переписываю программу на C# и столкнулся с проблемой, никак не пойму как происходит работа с памятью, может кто нибудь объяснить или помочь переписать кусочек, на вход подается бинарник потом записывается в Psh

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

massiv = array [1..9000] of word;   mkts = array [0..3, 1..6, 1..16] of SmallInt;   mdl = array [0..3, 1..6, 1..15] of SmallInt;   msh = array[1..392] of SmallInt;     TPmkts = ^mkts;   TPmdl = ^mdl;   TPmsh = ^msh;     Pkts: array[1..4, 1..2] of TPmkts = ( (nil, nil),                                     (nil, nil), (nil, nil), (nil, nil) );   Pdl: array[1..4, 1..2] of TPmdl = ( (nil, nil),                                     (nil, nil), (nil, nil), (nil, nil) );   Psh: array[1..4, 1..2] of TPmsh = ( (nil, nil),                                     (nil, nil), (nil, nil), (nil, nil) ); begin ...   New(Pdl[1, 1]);   New(Pozu[1, 1]);   Pkts[1, 1]:= @Psh[1, 1]^[9];     for KCO:=0 to 3 do     for Tip:=1 to 6 do     begin       CCO:=1;       repeat         if PKTS[1, 1]^[KCO, Tip, CCO] = (-1) then           PDL[1, 1]^[KCO, Tip, CCO]:= 0         else         begin           i:=CCO;           repeat Inc(i);           until (PKTS[1, 1]^[KCO, Tip, i] <> (-1));           PDL[1, 1]^[KCO, Tip, CCO]:= PKTS[1, 1]^[KCO, Tip, i] -                                              PKTS[1, 1]^[KCO, Tip, CCO];           case Tip of            2,5  : PDL[1, 1]^[KCO, Tip, CCO]:=                                          PDL[1, 1]^[KCO, Tip, CCO]*5;            3,4,6: PDL[1, 1]^[KCO, Tip, CCO]:=                                          PDL[1, 1]^[KCO, Tip, CCO]*8;           end;         end;         Inc(CCO);       until CCO=16;     end; .. end