Pro vytváření souboru se používají tyto standardní procedury a funkce:
assign, rewrite, ioresult, write/writeln, close
Následující příklad ukazuje vytvoření souboru na disketě.
program vytvor;
{$APPTYPE CONSOLE}
// Projekt: PP01 Autor:Kopeček Datum: 13.4.2005
// Funkce: Vytvoření souboru a naplnění daty z klávesnice
uses
SysUtils;
const
JMENO_SOUB = 'a:vytvor.txt'; // soubor na disketě
var
f:text; // deklarace textového souboru
c:char;
s:string;
begin
assign(f,JMENO_SOUB); // přiřazení jména souboru a souboru na disku
{$I-} // vypnutí standardního ošetření chyb
reset(f); // pokus o otevreni
if ioresult = 0 then begin // soubor existuje
writeln('soubor existuje / chcete ho prepsat? (A/N)');
readln(c);
if (c <> 'a') and (c<>'A') // zachovat soubor
then halt; // okamžité ukončení programu
end;
rewrite(f); // otevření pro zápis
if ioresult <> 0 then begin // test zda nedošlo k chybě při otevření
// například disketa není v mechanice
writeln('chyba pri otevirani souboru',JMENO_SOUB);
readln; // čekání na operátora
halt; // okamžité ukončení programu
end;
repeat
writeln('zapis dalsi radku:');
readln(s); // čtení řádky z klávesnice
writeln(f,s); // zápis textu
// ošetření chyby - například přeplnění diskety
if ioresult <> 0 then begin
writeln('Plna disketa ?');
readln;
halt;
end;
until eof; // konec souboru (z klávesnice Ctrl+Z)
close(f);
writeln('Konec programu');
readln;
{$I+} // zapnutí standardního ošetření chyb
end.