Program Zapis1;

var soubor: text;

begin
  assign(soubor,'D:\Dokumenty\Soubory\soubor1.txt');
  rewrite(soubor);
  write(soubor, 'Tento text bude v souboru1');
  close(soubor);
end.
