Pascal, speichern von text, der in variable ist

Program Datei;

var datei :text; //Datei-Variable ..aber nur für Textdatein!
 text : string; //dein Text
begin
 assign (datei, 'datei.txt'); //Datei-Variable auf die entsprechende Datei zeigen lassen
 rewrite(datei); //Datei erstellen oder "leeren"
 writeLn(datei,text); //Text in die Datei schreiben
 close(datei); //Datei wieder schließen
end.

Program Datei;

var datei :text; //Datei-Variable ..aber nur für Textdatein!
 text : string; //dein Text
begin
 assign (datei, 'datei.txt'); //Datei-Variable auf die entsprechende Datei zeigen lassen
 reset(datei); //Datei öffnen ohne was zu veränderen und der Datei-Cursor wird auf die erste Zeile gesetzt
 readLn(datei,text); //die ERSTE Zeile auslesen ..nach dem Aufruf rückt er Datei-Cursor auf die nächste Zeile
 close(datei); //Datei wieder schließen
 writeLn(text)
end.