Zählschleife Auswertung der Zufallszahlen

[3_of_8]

Delphi-Quellcode:

for i:=1 to 1000 do begin
  for k:=1 to 6 do if w[i]=k then inc (a[i]);
end;

Das kann nicht funktionierten. i zählt bis 1000 hoch, a hat aber nur eine Länge von 6.