Hallo!
Also, das geht ganz einfach:
Meine Änderungen habe ich kursiv geschrieben
program zaehl;
var
i, k:integer;
_F: TextFile; // TextFile = Datentyp, der für TExtdateien genommen wird
S: string; // String variable, sie nimmt den Dateinamen auf_
begin
write('Wie weit soll ich zaehlen?');
readln(k);
_write('Dateiname: '); // Den Benutzer nach dem Dateinamen fragen
ReadLn(S); // Die Benutzereingabe in S schreiben
AssignFile(F, S); // Die Textdatei erstellen
try // der folgende Block versucht (try) die
Rewrite(F); // Datei mit Schreibzugriff zu öffnen
except // Falls was schiefgeht (except, Ausnahme)
CloseFile(F); // Datei schließen
Halt; // Programm beenden
end;_
for i := 1 to k do _begin
writeln(i);
writeln(F, I); // Zusätzlich in deiner Schleife
end; // die Anweisung, in die Datei F zu schreiben_
_CloseFile(F); // Und zum Schluß die Datei schließen._
readln;
end.
Allgemein zum Programmbild:
Wenn du dich irgendwann an größere Projekte rantraust, solltest du dir ein übersichtlicheres Code-Bild verschaffen – so wie ich es hier gemacht habe.
Das nur so als Tip für die Zukunft. 300 Zeilen Code in der Form:
program zaehl;
var i,k:integer;
begin
write(‚Wie weit soll ich zaehlen?‘);
readln(k);
for i:=1 to k do
writeln(i);
readln;
end.
zu debuggen, wird nämlich sehr schnell zur Geduldsprobe. Einfach den Code durch Leerzeilen auflockern, Kommentare verwenden, denn wenn du mal ein halbes Jahr nichts am Programm machst, verstehst du erstmal nur Bahnhof 
Blöcke zwischen BEGIN und END einrücken, das erleichtert das Lesen erheblich.
Das sollte eigentlich funktionieren. Wenn nicht, bitte melden!
Liebe Grüße, der Chris
