Pro odstranění souboru se používají tyto standardní procedury a funkce:
assign, reset, ioresult, close, erase
Následující příklad ukazuje odstranění souboru z diskety.
program zrus;
{$APPTYPE CONSOLE}
// Projekt: PP01 Autor:Kopeček Datum: 13.4.2005
// Funkce: Odstranění souboru z diskety
uses
SysUtils;
const
JMENO_SOUB = 'a:vytvor.txt'; // soubor na disketě
var
f:text; // deklarace textového souboru
c:char;
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 odstranit? (A/N)');
readln(c);
if (c <> 'a') and (c<>'A') // zachovat soubor
then halt; // okamžité ukončení programu
end else begin
writeln('soubor ',JMENO_SOUB,' neexistuje / nelze odstranit');
readln;
halt;
end;
close(f);
if ioresult <> 0 then begin // nepravdepodobna chyba
writeln('chyba pri zavirani souboru');
readln;
halt; // okamžité ukončení programu
end;
erase(f); // odstraneni
if ioresult <> 0 then begin
writeln('chyba pri odstraneni souboru ',JMENO_SOUB);
readln;
halt; // okamžité ukončení programu
end else
writeln('soubor ', JMENO_SOUB,' odstranen');
writeln('Konec programu');
readln;
{$I+} // zapnutí standardního ošetření chyb
end.