Program Zapis2;

var soubor: text;

begin
  assign(soubor,'D:\Dokumenty\Soubory\soubor2.txt');
  rewrite(soubor);
  writeln(soubor,'Zkusme napsat text');
  write(soubor,'do dvou linek ');
  writeln(soubor,'pod sebou.');
  close(soubor);
end.
