Zitat von
Molzer:
Delphi-Quellcode:
[...]
case c of
'A'..'Z', 'a'..'z', '0'..'9':Zeile + Zeile + f;
else begin if length (zeile) >0 then writeln (g,zeile);
zeile:=' ';
[...]
Delphi mag bei case keine strings, sondern nur ordinal-typen, also Zahlen.
In Deinem Fall kann man das aber relativ leicht umschreiben. Probier' es mal so (ungetestet):
Delphi-Quellcode:
[...]
var
c : Char;
[...]
begin
if c in ['A'..'Z', 'a'..'z', '0'..'9'] then
zeile := zeile + f
else
begin
if Length(zeile) > 0 then WriteLn(g, zeile);
zeile := '';
end;
[edt] c muss natürlich vom Typ char sein...aargh
hätte heute kürzer schlafen sollen 
[edt2] whopps, da habe ich wohl einige Posts verschlafen während meines edits, sorry fürs nachträgliche editieren