1:

myarray[arraylaenge+1]:=myint;					

1:
2:
3:
4:
5:
6:
7:

while s[i+1]<>'' do begin 
    inc(i);
    opn:=length(operanden);
    case s[i] of
      '1'..'9': operanden[opn+1]:=strtoint(s[i]);
    end;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

while s[i+1]<>'' do begin 
    inc(i);
    opn:=length(operanden);
    case s[i] of
      '1'..'9': begin
         setlength(operanden, opn+1);
         operanden[opn]:=strtoint(s[i]);
       end;
    end;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:

type Spielflaeche = array of TEinzelfeld;

begin 

...
setlength(Spielflaeche,iX);
...
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

 type TSpielflaeche = array of TEinzelfeld;

 var Spielflaeche: TSpielflaeche; 

 begin 
 ...
 setlength(Spielflaeche,iX);
 ...
 end;