Indirekt: Strings vergleichen (inside more)

[Minz]

Code:

procedure FormingAltDic;
var  altDic: textfile;
     s:string;
     woerter: array of string;
begin
  assignfile(altDic, 'de_DE.dic');
  reset(altDic);

  while not eof(altDic) do begin
     readln(altDic, s);
     SetLength(woerter, length(woerter)+1);
     woerter[high(woerter)]:=s;
  end;

  closefile(altDic);
end;

Im Array woerter sollten jetzt alle Zeilen verfügbar sein.
Habsch aber net getestet!