pascal file patch-1

program operator not needed!