Wiedermal C -> Delphi

[Gehstock]

versuche folgenden Code zu übersetzen

Delphi-Quellcode:

var
char Test_PATCH[17],Test74[17],Test9C[17];
 char TestCC[33];
....
 {case 2:
 for(i=0;i<16;i++)
 {
  if(!(i%2)) //Prüfung auf Parität (is i/2 ???)
  {
    Test74[i]=Test_PATCH[i+1];
  }
  else
  {
  Test74[i]=Test_PATCH[i-1];
  }

hab ich nach

Delphi-Quellcode:

var
Test_PATCH : Array [1..17] of {Char}Word;//[b]hier überlege ich auch noch[/b]
Test74 : Array [1..17] of {Char}Word;
Test9C : Array [1..17] of {Char}Word;
TestCC : Array [1..33] of {Char}Word;
...
 2 : for i:=0 to 16  do
  begin
   if(not (i mod 2)) then //Prüfung auf Parität (is i/2 ???) [b]Hier hapert es  Was soll "i mod 2"nicht sein[/b]
    Test74[i]:=Test_PATCH[i+1]
  else
  Test74[i]:=Test_PATCH[i-1];
 end;

Übersetzt


und wie übersetze ich
int Test_code(char* Test, char *std) und
int main(int argc, char* argv[])
und ist diese zeile
TestCC[i*4]=(((Test74[(i*2)+1]&dest[(i*2)+1])|Test9C[(i*2)+1])&Test9C[(i*2)+1])%10; mit
TestCC[i*4]:=(((Test74[(i*2)+1] and dest[(i*2)+1]) or Test9C[(i*2)+1]) and Test9C[(i*2)+1])mod 10; richtig übersetzt?