Pascal 書式に修正