A fast median filter routine for Pascal/Delphi