Problem mit Würfelsimulation

[turboPASCAL]

Delphi-Quellcode:

function TForm1.Dice(dipo: integer) : integer;
var a:array of integer;
    x,i:integer;
begin
  SetLength(a,dipo + 1); // <-<<
  //...

SetLength immer die Anzahl der Elemente + 1, das erste Element ist bei dem Index 0.