program white_wipe;

uses
  Unix;

var
         S: LongInt;
begin
     S := fpsystem('dd if=/dev/urandom of=space bs=4M');
         WriteLn('Program exited with status : ', S);
     S := fpsystem('/usr/bin/srm -Prv space'); //Remove the created File
     WriteLn('Program exited with status : ', S);
end.