Guten Morgen.
Zitat:
ich bekomme in der Zeiletext_file : Text[4096];
einen Fehler.
Es handelt sich hierbei um ISO Pascal. Da wird ein i/o buffer von - für damalige Verhältnisse gigantischen - 4 KB deklariert. Borland ist da mit SetTextBuf andere Wege gegangen. In Delphi einfach weglassen. Der Aufruf von SetLength() im main block ist wohl keine Originalzeile.
Grüße vom marabu