Program Zapis3;

var soubor: text;
    dosouboru: String;

begin
  assign(soubor,'D:\Dokumenty\Soubory\soubor3.txt');
  rewrite(soubor);
  dosouboru := 'Tento text bude v souboru3';
  write(soubor, dosouboru);
  close(soubor);
end.
