Fehlfunktion in if-Abfrage

[Oxmyx]

Delphi-Quellcode:

if z1[1] = 1 then z3z[1] := z3z[1]+1
  else if z1[1] = 2 then z3z[2] := z3z[2]+1
       else if z1[1] = 3 then z3z[3] := z3z[3]+1;

Kann man so schreiben:

Inc(z3z[z1[1]]); Wenn z1[1] nur 1, 2 oder 3 annehmen kann.

Benutze mal den Debugger.