Array länge verändern

[Angel4585]

Delphi-Quellcode:

procedure zahlsetzen_generieren(i,j : integer;StringGrid1:TStringGrid); 

VAR zeiger,k,zahl,wo:integer;                                
möglichkeit : array  of integer;    //Zeiger soll erst in der procedur gesetzt werden??? 
geprüft: boolean; 

procedure prüfen(); 
  begin 
  geprüft:= false; 
  geprüft:= check_zeile(i,zahl); 
  if geprüft = false then 
      begin 
        geprüft:=check_spalte(j,zahl);            
        if geprüft = false then 
          begin 
            geprüft:=check_3x3(zahl,i,j);              
            if geprüft = false then                        
            begin 
              exit; 
            end; 
          end; 
        end; 
  end; 

begin 
  zeiger:=0; 
  for k:=0 to 9 do 
    begin 
    prüfen(); 
    if geprüft = false then 
      begin 
      SetLength(möglichkeit,Succ(zeiger));
      möglichkeit[zeiger]:= k; 
      inc(zeiger);                  //Hier sollte Zeiger immer erhöht werden wenn zulässig 
      end; 
    end; 
end;

So sollte es gehn, aber ob die variabl "Möglichkeit" zulässig ist denk ich nicht