RosettaCodeData/Task/Secure-temporary-file/Pascal/secure-temporary-file.pas

Program TempFileDemo;

uses
  SysUtils;

var
  tempFile: text;

begin
  assign (Tempfile, GetTempFileName);
  rewrite (tempFile);
  writeln (tempFile, 5);
  close (tempFile);
end.