{ (c) 1998 CREEQ <creeq@web.de> }
program Datein_mit_Text_anlegen;
uses Crt;
var F : Text;
    Name,Text,Antwort,Sicher : string;

begin
  clrscr;
  writeln('Bitte geben sie einen Text ein.');
  readln(text);
  writeln;
  writeln;
  writeln('Bitte geben sie den Namen der Datei ein in');
  writeln('der dieser Text gesicher werden soll.');
  readln(name);
  Assign(F,Name);
  Rewrite(F);
  Writeln(F,Text);
  Close(F);
  writeln;
  writeln;
  writeln('M”chten sie eine Sicherungsdatei anlegen? (J/N) : ');
  Antwort := Readkey;
  Assign(F,'sicher.txt');
  Rewrite(F);
  Writeln(F,Text);
  Close(F);
end.