Problem mit statischem array und zufälliger ausgabe

[Klaus01]

Guten Morgen,

sollte es in etwa so gehen?

Delphi-Quellcode:

  
    for I := 0 to length(schluessel) - 1 do
      begin
        zwisch[i] := StrToInt(schluessel[i]); // Schlüssel zwischenspeichern

        case i of //case anweisung zum unterscheiden zwischen 1 und 0

          0: key[i] := random (test1[i]); // Schlüssel füllen mit ungerade oder geraden zahlen
          1: key[i] := random (test2[i]); // hier tritt auch der Fehler auf
        end;
   
      end;

Grüße
KLaus