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

for i:=low(meinarray) to high(meinarray) do 
 if meinarray[i]='' then 
 begin
  neueid := i+1; 
  break; 
 end;

meinarray[neueid]:='wasauchimmer';					

1:

meinarray[] = "wasauchimmer";					

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

var zaehler : integer; // irgendwo 0 initialisiert
var meinarray : array of string;


procedure macharrayeintrag(eintrag:string);
begin
 setlength(meinarray,zaehler);
 meinarray(zaehler) := eintrag;
 inc(zaehler); 
end;