datei einlesen, jedes wort in eigene zeile setzten, dat ausl

[Molzer]

hallo!
hab problem mit meiner case of funktion: "ordinaltyp erforderlich"???

Delphi-Quellcode:

var F,g:Textfile;
    c:string;
begin
assignfile (f, 'input.txt');
reset (f);
assignfile (g, 'output.txt');
rewrite (g);

zeile:=' ';
while not eof (f) do
begin
  read (f,c);
  case c of
  'A'..'Z', 'a'..'z', '0'..'9':Zeile + Zeile + f;
  else begin if length (zeile) >0 then writeln (g,zeile);
             zeile:=' ';
  closefile (f);
  closefile (g);
  end;
  end;

  end;